PascalABСДано двухзначное число. Рассчитать произведение его цифр. Задачу решить через процедуру.

3 4 5 6 7 8 9 10 11 program Integer7; var A, Res: Integer; begin Write('Введите двузначное число: '); Readln(A); Res:=(A div 10) + (A mod 10); Writeln('Сумма его цифр равна: ',Res); Res:=(A div 10) * (A mod 10); Writeln('Произведение его цифр равно: ',Res); end.