program DivisionThreeFive;
vari: Integer;
beginwriteln('Двухзначные числа, делящиеся на 3 или на 5:');for i := 10 to 99 dobeginif (i mod 3 = 0) or (i mod 5 = 0) thenwriteln(i);end;end.
program DivisionThreeFive;
var
i: Integer;
begin
writeln('Двухзначные числа, делящиеся на 3 или на 5:');
for i := 10 to 99 do
begin
if (i mod 3 = 0) or (i mod 5 = 0) then
writeln(i);
end;
end.