Составьте программу которая подсчитывает количество и стоимость затрачиваемого бензина на путь.Pascal ABC

uses crt;const benz=37.10;var km,summ:real;beginwriteln('Введите km');readln(km);summ:= benz*km;clrscr;writeln('***************');writeln('***  Цена   ***');writeln('***************');writeln('* Бензин | КМ *');writeln('*  ',benz,'  | ',km,' *');writeln('***************');writeln('**** Сумма ****');writeln('***************');writeln('* ',summ,'  рублей *');writeln('***************');end.