11 lines
146 B
ObjectPascal
11 lines
146 B
ObjectPascal
var
|
|
s1: string := 'a';
|
|
s2: string := 'b';
|
|
|
|
begin
|
|
Writeln(s1<s2);
|
|
Writeln(s1<=s2);
|
|
Writeln(s1>s2);
|
|
Writeln(s1>=s2);
|
|
Readln;
|
|
end. |