mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 02:09:33 +01:00
15 lines
264 B
ObjectPascal
15 lines
264 B
ObjectPascal
type
|
|
a = array[0..100] of char;
|
|
|
|
var
|
|
a1 : a;
|
|
s : string;
|
|
begin
|
|
a1[0]:='1';a1[2]:='2';a1[3]:='3';
|
|
a1[4]:='4';a1[5]:='5';a1[6]:='6';
|
|
a1[7]:='7';a1[8]:='8';a1[9]:='9';
|
|
a1[10]:='0';a1[11]:='1';
|
|
s:=Copy(a1,1,10);
|
|
if s<>'1234567890' then halt(1);
|
|
end.
|