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.