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

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