Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
<em /><em /><em>VAR</em>
<em> a, b: LongInt;</em>
<em>BEGIN</em>
<em> Read(a, b);</em>
<em />
<em> If (a > b) then Write(a, ' > ', b)</em>
<em> Else If (b > a) then Write(b, ' > ', a)</em>
<em> Else Write(a, ' = ',b);</em><em> </em>
<em>END.</em>
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.