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

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.