Написать программу вычисления стоимости некоторого количества (по весу) яблок. Ниже...

Question

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

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

Answer 1

Var
    p, q: real;

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