program p9_a_3 uses crt var integer begin clrscr write Vvedite natural

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
program p9_a_3;
uses crt;
var n, i : integer;
begin
clrscr;
write('Vvedite naturalnoe chislo n : '); readln(n);
for i := 10 to 99 do begin
if (i mod n = 0) then write(i,', ') else
if ((i mod 10 = n) or (i div 10 = n)) then write(i,', ');
end;
readln;
end.