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

Program zadanie; Var a,b,c,n:real; Begin  Writeln('Задайте число');  Readln(n);  Writeln('Введите 3 числа, больше заданного');  Readln(a,b,c);  If (a>n) and (b>n) and (c>n) Then  begin  a:=a*b*c;  Writeln('Произведение 3-х вводимых чисел=',a);  end  Else Writeln('Неверно введены числа'); End. and-логическое "и"