Написать программу Паскаль, для вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек (к ним красиво оформить вывод результата работы программы)

program name;

uses crt;

var a, b, c, d, e: real;

begin

clrscr;

write ('Введите стоимость 1 ой тетради: ') ;

readln (a) ;

write ('Введите стоимость 2 ой тетради: ') ;

readln (b) ;

write ('Введите стоимость 3 ей тетради: ') ;

readln (c) ;

write ('Введите стоимость обложки: ') ;

readln (d) ;

e:=a+b+c+d*3;

write ('Стоимость всех вещей равна: ', e:3:2,' руб.') ;

readln;

end.