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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var a, b: integer;
begin
  a :=0;
  b :=0;
  while (a<25) do
  begin
    b := b +4;
    write(b, ' ');
    a := a + 1;
  end;
  readln();
end.