Составьте программу которая подсчитывает количество и стоимость затрачиваемого бензина на путь. 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.