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