Составить программу, решающую следующую : дано трехзначное число. найти произведение его первой и второй цифры.

Var n,p:integer;
begin
write('n = '); readln(n);
p:=(n div 100)*(n div 10 mod 10);
writeln('p = ',p);
end.

Пример:
n = 374
p = 21