Вывести на экран все числа из отрезка [1590; 3790], делящиеся нацело на 4 в столбец

program zz1;

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

begin

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

if i mod 4 = 0 then writeln (i); / /проверяем, если число делится на четыре, то выводим его на экран в столбец

end.