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.