В интервале от 10 до 20 найти все числа, которые делятся на 3 без остатка. Паскаль.

program zz1;

var i:integer; / / задаем переменную для цикла целого типа

begin

for i: = 10 to 20 do / / организуем цикл, в котором переберем все числа от десяти до двадцати

if i mod 3 = 0 then write (i, ' '); / / проверяем, если число из цикла, при делении на три в остатке дает ноль, то выводим это число в строчку через пробел

end.