Написать программу, которая выводит на экран таблицу стоимости товара в диапазоне от 100 г до 1 кг с шагом 100. Цену одного кг ввести с клавиатуры (в примере это число 16.50) . Рекомендуемый вид экрана:Введите цену 1 кг -> 16.50Вес, г Стоимость, руб.100 1.65200 3.30 . . .1000 16.50
var a: real; i: integer;
begin
writeln('Введите цену 1 кг ');
readln(a);
writeln('Вес, г Стоимость, руб.');
for i:=1 to 10 do
writeln(100*i:5,' ',a/10*i:5:2);
end.