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

Question

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

Answer 1

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.