program pov;
uses crt;
var x,k, s: integer;
begin
clrscr;
writeln ('s='); readln (s);
for x:=100 to 999 do if x mod 10+(x div 10) mod 10+x div 100 =s then
begin
writeln (x);
k:=k+1;
end;
writeln ('kolvo=',k);
readkey;
end.
uses crt;
var x,k, s: integer;
begin
clrscr;
writeln ('s='); readln (s);
for x:=100 to 999 do if x mod 10+(x div 10) mod 10+x div 100 =s then
begin
writeln (x);
k:=k+1;
end;
writeln ('kolvo=',k);
readkey;
end.