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

Primary tabs

Submitted by naveang on Mon, 03/21/2022 - 16:25

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

var i:integer;
  begin
    i:=4;
    while i<101 do
      begin
        writeln(i);
        i:=i+4;
      end;
  readln();
  end.