fpc/tests/webtbs/tw38310a.pp

13 lines
142 B
ObjectPascal

{ %NORUN }
program tw38310a;
{$mode objfpc}{$H+}
uses
SysUtils, StrUtils, Math;
begin
IfThen(true, 'A', IfThen(true, 'B', 'C'));
end.