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

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;