mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
15 lines
193 B
ObjectPascal
15 lines
193 B
ObjectPascal
program project1;
|
|
const
|
|
S: string = '123';
|
|
var
|
|
I: Integer;
|
|
P: PChar;
|
|
begin
|
|
{$RANGECHECKS ON}
|
|
P := PChar(@S[2]);
|
|
I := -1;
|
|
if (P[-1]<>'1') or
|
|
(P[I]<>'1') then
|
|
halt(1);
|
|
end.
|