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

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

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