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

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.