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

Programm a1;
var pt, po, col, res: real;begin  Writeln('Введите стоимость одной тетради: ');  Readln(pt);  Writeln('Введите стоимость одной обложки: ');  Readln(po);  Writeln('Введите количество комплектов: ');  Readln(col);  res:=col*(pt+po);  Writeln('Сумма: '+res);end;