Var a, b, c, e : integer;beginwriteln(Кол-во карандашей:);readln(a);writeln(Цена карандашей:);readln(b);writeln(Кол-во тетрадий:);readln(c);writeln(Цена тетрадий:);readln(e);writeln(Стоимость карандашей: , a*b);writeln(Стоимость тетрадий: , c*e);writeln(Стоимость покупки: , c*e + a*b);end.