задача 7 урок 12.1

Primary tabs

Submitted by Andrey2784 on Thu, 08/15/2024 - 12:08

Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var a:integer;
begin
a:=35;
 repeat
   if (a mod 6)=0 then
     writeln(a);
   a:=a+1;
  until a>117;
readln();
end.