Запишите на языке паскаль программу, которая для двухзначного случайного числа определяет произведение его цифр

Program n1;
var a,p: integer;
begin
randomize;
a:=random(90)+10;
p:=(a mod 10)*(a div 10);
writeln('произведение цифр числа ',a,' равно ',p);
end.

Program Proiz;var a:integer;begin a:=Random(100); writeln('Случайное число а равно ',a); //Можно это и не писать a:=(a mod 10)*(a div 10); writeln(a)end.