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.