PROGRAM
EJER68
;
USES
CRT
;
VAR
cad1
,
cad2
:
STRING
;
VAR
posi
:
INTEGER
;
BEGIN
cad1
:=
'supercalifragilisticoexpialidoso'
;
cad2
:=
'fragi'
;
posi
:=
POS
(
cad2
,
cad1
);
CLRSCR
;
WRITE
(
'Posicion: '
);
WRITELN
(
posi
);
END
.