Программа на Pascal. Создать Программу расчета стоимости бензина на АЗС ( данные придумать)

program AZS;
uses crt;
var price, amount, p_a: real;
begin
clrscr;
write('BBeDuTe cTouMocTb bEH3uHa 3a 1 JluTp: ');
readln(price);
write('CKoJlbKo JluTpoB lloKyllaeTe? ');
readln(amount);
write('K ollJlaTe ', price*amount, ' pybJleu')
end.

Переменные типа real. Если программа крашнулась во время компиляции, значит вы ввели неправильно нецелое число (например, 78.7, а не 78,7). Желательно вводить числа через Numpad.