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

Var z:real; i:integer;
begin
writeln('Введите стоимость одного килограмма и нажмите lt;entergt; ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
end.