Написать программу Паскаль, для вычисления стоимости покупки трех разных…

program name; uses crt; var a,b,c,d,e: real; beginclrscr; 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.