Задача 11 Урок 11

http://fkn.ktu10.com/?q=node/7341
Вывести на экран все числа от 4 до 100 с шагом 4

var i, a:integer;
begin
  for i:=4 to 100 do
  begin
  if i mod 4=0 then  
    writeln(i,' '); 
    end;
 readln();
  end.