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

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

Извени не то поставил