mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
19 lines
278 B
ObjectPascal
19 lines
278 B
ObjectPascal
{ %OPT=-O2 }
|
|
program Project1;
|
|
|
|
procedure Foo(StartPos, EndPos: Cardinal);
|
|
var
|
|
s:string;
|
|
begin
|
|
if (Cardinal((@s[1])^) >= StartPos) and (Cardinal((@s[1])^) <= EndPos) then
|
|
writeln;
|
|
end;
|
|
|
|
var
|
|
S: string;
|
|
|
|
begin
|
|
foo(1,2);
|
|
writeln(PByte(@S[1])^ = PByte(@S[1])^ );
|
|
end.
|