Найти все трёхзначные натуральные числа, сумма цифр которых равна заданному числу N

var
   n,i,i1,i2,m,z: real;
begin
     writeln ('Vvedite chislo n - summu cifr 3-znachnogo chisla ');
     readln (n);
     if n<=0
        then
            begin
              writeln ('Chislo N dolzhno byt bolzshe 0 ');
            end;
     if frac(n)<>0
        then
            begin
              writeln ('Chislo N dolzhno byt celym ');
            end;
     m:=99;
     repeat
           m:=m+1;
           i:=m/100;
           i:=int(i);
           i1:=m/10;
           i1:=int(i1);
           i1:=i1/10;
           i1:=frac(i1);
           i2:=m/10;
           i2:=frac(i2);
           z:=i+i1+i2;
           if z=n
              then
                  writeln (m:2:0);
     until m>=999;
     readln;
end.

uses crt;
var
   n, i : integer;
BEGIN
ClrSCr;
Write('N = ');
Readln(n);
for i := 100 to 999 do
 if(round(frac(i/10)*10) + trunc(i/100) + round(frac(trunc(i/10)/10)*10)) = N  then
  Write(i, ' ');
Readln;
END.

uses crt;
var s,d,e,n: byte;
begin
repeat
write('n ([1;27])='); readln(n);
until n in [1..27];
for s:=1 to 9 do
    for d:=0 to 9 do
        for e:=0 to 9 do
            if s+d+e=n then write(s,d,e,' ':5);
readln;
end.

var
   n,i,i1,i2,m,z: integer;
begin
     writeln ('Vvedite chislo n - summu cifr 3-znachnogo chisla ');
     readln (n);
     if n<=0
        then
              writeln ('Chislo N dolzhno byt bolzshe 0 ');
     if frac(n)<>0
        then
              writeln ('Chislo N dolzhno byt celym ');
     m:=0;
     i:=0;
     repeat
           m:=m+100;
           i:=i+1;
           i1:=-1;
           repeat
                 begin
                      i1:=i1+1;
                      i2:=-1;
                      repeat
                            begin
                                 i2:=i2+1;
                                 z:=i+i1+i2;
                                 if z=n
                                    then
                                        writeln (i,i1,i2);
                            end;
                      until i2>=9;
                 end;
           until i1>=9;
     until i>=9;
     readln;
end.