Как в pascalABC написать скрипт для бота продавца(робот должен говорить сколько денег стоит товар после того как ему сказали количество товара)

const

price = 15;

var

quantity:real;

begin

readln(quantity);

writeln('Вам потребуется: ', (quantity * price):5:2);

end.