Даны положительные числа 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.

{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.

{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.