fpc/tests/test/cg/tvecsimplify1a.pp
2024-01-21 11:56:09 +00:00

17 lines
234 B
ObjectPascal

program tvecsimplify1a;
{$H+}
const
SPangram = 'The quick brown fox jumps over the lazy dog';
function GetChar: AnsiChar;
begin
GetChar := SPangram[39];
end;
begin
if GetChar() <> 'y' then
Halt(1);
WriteLn('ok');
end.