Решить в паскале : проверка принадлежности часла x интервалу (a;b)

Var x, a, b,., c, d: integer;
begin
readln(x, a, b);
if ((x gt; a) and (x lt; b)) then
 writeln(a; b);
end.

Var x, a, b, c, d: integer;
begin
readln(x, a, b);
if ((x gt; a) and (x lt; b)) then
 writeln(a; b);
end.