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

Program lol; uses crt; varct,co,sum: real; ko,ky: integer; beginwriteln ('Введите кол-во терадей: '); read (ky); writeln ('Введите цену за 1 тетрадь: '); read (ct); writeln ('Введите кол-во обложек: '); read (ko); writeln ('Введите цену за 1 обложку: '); read (co); sum: =(ky*ct)+(ko*co); writeln ('Стоимость покупки=', sum); end.