Question

Написать этапы разработки программы: Вывести числа от 1 до 400

Answer 1

Var  i:integer;  number:integer;begin
  number:=1;    for i:=1 to 400 do    begin    writeln(number);    number:=number+1;    end;end.