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.