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

uses crt;var a,a1,a2:integer;beginwrite('Введите двузначное число: ');readln(a);a1:=a div 10;a2:=a mod 10;writeln('Сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2);end.

 program kugjmgv;

uses crt;var a,a1,a2:integer;begin

ClrScr;write('Введите двузначное число: ');readln(a);a1:=a div 10;a2:=a mod 10;writeln('Сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2);end.