Задача 2 Урок 12.2

Задача 2 Урок 12.2

1 Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:
1 5 9 13 17 21 25 29 33 37 41 45

var a:integer;
begin
  for a:=1 to 45 do
    if ((a mod 4)=1) then
      write(a,' ');
  readln();
end.  
</pre>

Вывод консоли:
1 5 9 13 17 21 25 29 33 37 41 45