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

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