Вывести на экран все двухзначные числа кратные 7
(паскаль, цикл "до", "пока", "для")

Program abc;

var a:integer;

begin

for a:=10 to 99 do

if a mod 7=0 then

writeln(a,' ');

end.