Найдите произведение трёх чисел вводимых с клавиатуры при условии, что они больше заданного числа (найти по программе паскаль)

program zz1;

var a, b, c, n, p:integer; / /задаем переменные

begin

write ('введите заданное число '); / /вводим с клавиатуры первое число

read (n);

write ('введите первое заданное число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе заданное число '); / /вводим с клавиатуры второе число

read (b);

write ('введите третье заданное число '); / /вводим с клавиатуры третье число

read (c);

if (a>n) and (b>n) and (c>n) then p:=a*b*c; //проверяем, если все они больше заданного, находим произведение трех введенных чисел

if p>0 then write ('произведение трех чисел = ', p) else write ('есть число не больше заданного '); / /выводим ответ

end.