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

Var z:real; i:integer;

begin

writeln ('Введите цену одного килограмма и нажмите ') ;

writeln (' (копейки от рублей отделяйте точкой) ') ;

readln (z) ; writeln ('Вес (граммов) Cтоимость (руб.) ') ;

for i:=1 to 10 do writeln (i*100:13, z*i/10:10:2) ; readln

end.