Question

Вывести на экран все трёхзначные числа кратные трём и заканчивающиеся на один

Answer 1

Program n1;
var i: integer;
begin
for i:=111 to 981 do if ( i mod 3=0) and (i mod 10=1) then write(i,' ');
end.