правильное описание функции на паскале

Ответ от Manunich[гуру]
uses crt;
function sum(a:Integer):Integer;
var r:Integer;
begin
r:=0;
while (a>0) do begin
r:=r+a mod 10;
a:=a div 10;
end;
sum:=r;
end;
var x,k,s,i:Integer;
begin
clrscr;
write('X = ');readln(x);
k:=0;i:=x+2;
s:=sum(x+1);
writeln('=',x+1);
while (k<>2) do begin
if (sum(i)=s) then begin writeln('=',i);k:=k+1; end;
i:=i+1;
end;
end.
PS: У мну самое короткое и правильное решение, строки лучше не юзать, когда считаешь сумму цифр в числе
Источник: Ты обещал) ) Z690411327107