Помогите решить задачу в паскаль

[Ambros]

Определите значение величины q после выполнения каждой из следующих команд присваивания: а) q:=a<b<c and c<5 b) q:=(a<=b) or (b>=c) c) q:=odd(a+b) xor odd(b+c) d) q:=sin(a) < sin(b) < sin(c) a, b, c - целочисленные переменные, значение которых вводится с клавиатуры.

[BDA]

1) Что вызывает затруднения?
2) Какие есть наработки?
3) a) и d) не скомпилируются в таком виде

[Ambros]

var
q:boolean;
a,b,c: integer;
begin;
readln(a,b,c);
q:=a<b<c and c<5;
readln(q);
and.

Но я понимаю, что написал полную чушь.

[BDA]

Практически верно. На примере b):

var
  q: boolean;
  a, b, c: integer;
begin
  readln(a, b, c);
  q := (a <= b) or (b >= c);
  writeln(q);
end.

[Ambros]

У меня пишет, что ошибочный числовой формат.

[BDA]

Чем компилируете?

[Ambros]

Все разобрался) Благодарю за помощь.

[min@y™]

Чисто от скуки.

{
Определите значение величины q после выполнения каждой из следующих команд
присваивания:
  а) q:=a<b<c and c<5
  b) q:=(a<=b) or (b>=c)
  c) q:=odd(a+b) xor odd(b+c)
  d) q:=sin(a) < sin(b) < sin(c)
a, b, c - целочисленные переменные, значение которых вводится с клавиатуры.
}

function ShitHappens(const a, b, c: Single; const Switch: Char): Boolean;
begin
  case Switch of
    'a': ShitHappens:= (a < b) and (b < c) and (c < 5);
    'b': ShitHappens:= (a <= b) or (b >= c);
    'c': ShitHappens:= Odd(Round(a + b)) xor Odd(Round(b + c));
    'd': ShitHappens:= (Sin(a) < Sin(b)) and (Sin(b) < Sin(c));
  else
         ShitHappens:= False;
  end;
end;

Ахтунг!! Писал гвоздём на ментовской машине.