mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
23 lines
246 B
ObjectPascal
23 lines
246 B
ObjectPascal
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TID4 = array[0..3] of char;
|
|
|
|
function GetID: TID4;
|
|
begin
|
|
result:=#1#3#5#9;
|
|
end;
|
|
|
|
|
|
var
|
|
ChunkID: TID4;
|
|
begin
|
|
ChunkID:=#1#3#5#9;
|
|
if GetID=ChunkID then
|
|
writeln('ok')
|
|
else
|
|
halt(1);
|
|
end.
|