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.

Answer 2

var
i:integer;
number:integer;
begin

number:=1;

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