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

Primary tabs

Submitted by Djos on Sun, 09/19/2021 - 23:37

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

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