10 lines
91 B
ObjectPascal
10 lines
91 B
ObjectPascal
|
|
var
|
|
s1,s2:string;
|
|
|
|
begin
|
|
if (s1<s2) then
|
|
writeln(s1,'<',s2)
|
|
else
|
|
writeln(s1,'>=',s2);
|
|
end. |