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

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