Дано четырехзначное число. Найти сумму и произведение второй и третьей цифр заданного числа.

программа PascalABC

// PascalABC.NET (версия 3.2, сборка 1363)var  n, a, b: integer;begin  n := ReadInteger();  a := n mod 1000 div 100;  b := n mod 100 div 10;  writeln('Сумма: ', a + b);  writeln('Произведение: ', a * b);end.