PROGRAM
EJER66
;
USES
CRT
;
VAR
cad1
,
cad2
:
STRING
;
BEGIN
cad1
:=
'FILOSOFIA'
;
cad2
:=
COPY
(
cad1
,
5
,
5
);
CLRSCR
;
WRITELN
(
cad1
);
WRITELN
(
cad2
);
END
.