Программка на 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.