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

Primary tabs

Submitted by alterMann on Thu, 08/05/2021 - 21:29

Вывести на экран все числа от 4 до 100 с шагом 4

var
  i: integer;
begin
  i:= 4;
  while (i <= 100) do
        begin
          write(i, ', ');
          i:= i + 4;
        end;
  readln();
end.