program p3_1 var integer begin write Vvedite readln for 10 to 99 do be

program p3_1;

var i, n : integer;
begin
write('Vvedite N: '); readln(n);

for i:= 10 to 99 do
begin
   if ((i mod n = 0) OR (i mod 10 = n) OR (i div 10 = n)) then write(i,', ');
end;

readln;
end.