mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
13 lines
158 B
ObjectPascal
13 lines
158 B
ObjectPascal
{$mode objfpc}{$H+}
|
|
|
|
operator >< (A, B: Integer): Integer;
|
|
begin
|
|
Result := A - B;
|
|
end;
|
|
|
|
begin
|
|
Writeln(2 >< 3);
|
|
if (2 >< 3) <> -1 then
|
|
halt(1);
|
|
end.
|