Найдите произведение трёх чисел вводимых с клавиатуры при условии , что

program zz1;
var a,b,c,n,p:integer; //задаем переменные
begin
write(введите данное число ); //вводим с клавиатуры первое число
read(n);
write(введите 1-ое данное число ); //вводим с клавиатуры 1-ое число
read(a);
write(введите 2-ое данное число ); //вводим с клавиатуры 2-ое число
read(b);
write(введите третье заданное число ); //вводим с клавиатуры третье число
read(c);
if (agt;n)and(bgt;n)and(cgt;n) then p:=a*b*c;//проверяем, если все они больше данного, обретаем произведение 3-х введенных чисел
if pgt;0 then write(творение 3-х чисел = ,p) else write(есть число не больше заданного ); //выводим ответ
end.