Даны положительные числа a, b, c, x. выясните, пройдёт ли кирпич с рёбрами a, b, c в квадратное отверстие со стороной x. решить в паскале

Var a,b,c,x:real; 
begin 
writeln('Введите a,b,c,x'); 
read(a,b,c,x); 
if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else 
writeln('Кирпич не пройдет'); 
end.