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

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-логическое "и"