Контрольное задание №16-2 / 16-2 / zadanie_2

program Zadanie_2;
var
N: word;
k: longint;
i: byte;
begin
writeln ('‚ўҐ¤ЁвҐ зЁб«® N (max 99):');
readln (N);
writeln ('Ќ вга «м­лҐ зЁб«  ­Ґ ЇаҐў®б室пйЁҐ ',N,' Ё ¤Ґ«пйЁҐбп ­  Є ¦¤го Ё§ бў®Ёе жЁда');
for i:=1 to N do
begin
k:=k+1;
if k div 10<1 then write (k,' ') else
if k div 100<1 then
if k mod 10<>0 then
if k mod (k div 10) + k mod (k mod 10)=0 then write (k,' ');
end;
readln;
end.