Как записать двойное неравенство 0<x<100 на языке Паскаль?

x>0 and x<100

(x>0) and (x<100)

(x<0) and (x<100)

(0<x) <100
​

Как записать двойное неравенство 0<x<100 на языке Паскаль? -

(x>0) and (x<100)

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.