Вывести на экран сумму и произведение цифр целого двузначного случайного числа.

Program prog;
Uses crt;

var n: integer;
    
begin;
clrscr;
randomize;

n:= random(90)+10;
writeln(n);

writeln('Sum = ', (n mod 10) + (n div 10));
writeln('Prod = ', (n mod 10) * (n div 10));


end.