blob: 4d087ecd42ddb6a669dff18278888cd7425a57ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{$mode objfpc}{$H+}
uses
classes;
type
stringarty = array of string;
var
ar1,ar2: stringarty;
begin
setlength(ar1,4);
ar2:= copy(ar1,1,3);
if (length(ar2) <> 3) then
halt(1);
ar2:= copy(ar1,1,4);
if (length(ar2) <> 3) then
halt(2);
ar2:= copy(ar1,1,5);
if (length(ar2) <> 3) then
halt(3);
end.
|
