mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 01:21:27 +01:00
17 lines
234 B
ObjectPascal
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. |