Ну как то так.
Код:
var
i,s,x:integer;
begin
writeln ('введите число');
readln (x);
s:=0;
while (x<>0) do begin
s:=s+(x mod 10);
x:=x div 10;
end;
if s>=11 then writeln ('сумма равна',s) else writeln ('сумма меньше 11');
readln
end.
Если не прав поправьте.