mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 21:39:31 +02:00
16 lines
172 B
ObjectPascal
16 lines
172 B
ObjectPascal
{$mode objfpc}
|
|
{$openstrings+}
|
|
procedure t(out s: shortstring);
|
|
begin
|
|
writeln(high(s));
|
|
if high(s) <> 4 then
|
|
halt(1);
|
|
end;
|
|
|
|
var
|
|
s: string[4];
|
|
begin
|
|
t(s);
|
|
end.
|
|
|