mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:48:21 +02:00
18 lines
196 B
ObjectPascal
18 lines
196 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$else}
|
|
{$apptype console}
|
|
{$endif}
|
|
|
|
Uses Sysutils,variants;
|
|
|
|
var v : variant;
|
|
s : string;
|
|
|
|
begin
|
|
v := 1;
|
|
s:=inttostr(v);
|
|
if (s <> '1') then
|
|
halt(1);
|
|
end.
|