mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:07:58 +02:00
19 lines
236 B
ObjectPascal
19 lines
236 B
ObjectPascal
var
|
|
C : Char;
|
|
S : AnsiString;
|
|
begin
|
|
S := '';
|
|
SetLength(S,1);
|
|
S[1] := '?';
|
|
SetLength(S,2);
|
|
S[2] := '?';
|
|
if (s <> '??') then
|
|
halt(1);
|
|
|
|
S := '';
|
|
S := S + '?';
|
|
S := S + '?';
|
|
if (s <> '??') then
|
|
halt(1);
|
|
end.
|