program ххх;var n : integer;begin for n:= 10 to 99 do if n mod 13 = 0 then writeln(n); readln;end.
program mdd;uses crt;var i:longint;beginclrscr;for i:= 10 to 99 dobeginif i mod 13 = 0 then writeln(i);end;readkey;end.
program ххх;
var n : integer;
begin
for n:= 10 to 99 do
if n mod 13 = 0 then writeln(n);
readln;
end.
program mdd;
uses crt;
var i:longint;
begin
clrscr;
for i:= 10 to 99 do
begin
if i mod 13 = 0 then writeln(i);
end;
readkey;
end.