Вывести на экран все трехзначные естественные числа, сумма цифр которых не

Program n1;
var n,i: longint;
function issum(n: longint): longint;
var i,sum: longint;
begin
sum:=0;
while(nlt;gt;0)do 
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
issum:=sum;
end;
begin
write('введите число: ');
readln(n);
for i:=100 to 999 do if issum(i)lt;=n then write(i,' ');
end.