Дана программа
program appl;

var
c, v: real; {цена и вес яблок}

st: real;{стоимость покупки}

begin

writeln('Вычисление стоимости покупки.');

writeln('введите исходные данные:');

write('Цена 1 кг яблок (руб.)->');

readln(c);

write('Вес яблок (кг)->');

readln(v);

st := v * c;

writeln('Cтоимость покупки:', st:6:2, ' руб');

end.


Что такое writeln('Cтоимость покупки:', st:6:2, ' руб');

Это вывод на экран переменной st - стоимость покупки С - задает цену за 1 кгV - задает сколько всего кг будет купленноПотом все это перемножаем и заносим в переменную st и ее выводим ее на экран