Else информатика Задачка Проверить принадлежит ли число x и y. Интервалу

Принадлежат ли оба числа данному интервалу?

да

Паскаль?

Бейсик? Си?

да

Var x,y,a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if (alt;=x)and(xlt;=b)and(alt;=y)and(ylt;=b) then WriteLn(x,' и ',y,' [',a,',',b,']')
else WriteLn(x,' и/либо ',y,' не [',a,',',b,']')
End.