Решение задач по теме "For - цикл с параметром в Pascal"
Решение задачи №5
program five;
var i: integer;
Price: real;
begin
write('Цена 1 кг = ');
readln(Price);
for i:=1 to 10 do
writeln('Стоимость ',i/10,'кг = ',Price/10*i);
end.