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

Молчит автор вопроса. Но, возможно, имелось в виду, что вводить надо до тех пор, пока все три числа не будут удовлетворять условию?

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