Задача 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.