mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
21 lines
314 B
ObjectPascal
21 lines
314 B
ObjectPascal
{$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.
|