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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
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.