Написать программу в паскале

Написать программу вычисления стоимости покупки. Нужно указать вид товара, его цену и количество. Вид экрана во время работы программы:

Вычисление стоимости покупки.

Введите исходные данные:

Какой товар вы покупаете? ->Тетрадь

По какой цене? -> 1.50

Сколько штук? -> 5

Ваш товар - Тетрадь. Стоимость покупки: 7.50

Сколько денег даете? -> 10

Ваша сдача: 2.50

По дате

По рейтингу

user_24751000

Новичок

9лет

var
s: string;
a,b,c:real;
begin
WriteLn('Вычисление стоимости покупки. ');
WriteLn('Введите исходные данные: ');
WriteLn('Какой товар вы покупаете? ');
ReadLn(s);
WriteLn('По какой цене? ');
ReadLn(a);
WriteLn('Сколько штук? ');
ReadLn(b);
WriteLn('Ваш товар - ', s, '. Стоимость покупки: ', a * b : 2);
WriteLn('Сколько денег даете? ');
ReadLn(c);
WriteLn('Ваша сдача: ', c - a * b);
end.