mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
18 lines
383 B
ObjectPascal
18 lines
383 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3765 }
|
|
{ Submitted by "Andrew Haines" on 2005-03-09 }
|
|
{ e-mail: andrewd207@aol.com }
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
var
|
|
AName, ANumber, ABoolean: Variant;
|
|
begin
|
|
AName := 'John Smith';
|
|
ANumber := 12345;
|
|
ABoolean := True;
|
|
WriteLn('Name=',AName, ' Number=', ANumber, ' Boolean=',ABoolean);
|
|
end.
|