Написать программу вычисления стоимости некоторого количества (по весу) яблок. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.

var    p, q: real;begin    writeln('Введите исходные данные:');    write('Цена одного килограмма яблок (руб.) -> ');    readln(p);    write('Вес яблок (кг) -> ');    readln(q);    writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');end.