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

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;

Если ответ по предмету Другие предметы отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.