fpc/tests/webtbs/tw38310c.pp

13 lines
142 B
ObjectPascal

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