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

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