pascalabcnet/TestSuite/stringcompare1.pas

5 lines
90 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
begin
assert('acv'<'acvb');
assert('acvb'>'acv');
assert('abc'+'def'='abcdef');
end.