program sr;
Var a,b,c:Integer;
begin
a:=1;
b:=20;
case (a > b) of
true : WriteLn('a > b');
else WriteLn('a < b');
end.
Var a,b,c:Integer;
begin
a:=1;
b:=20;
case (a > b) of
true : WriteLn('a > b');
else WriteLn('a < b');
end.