var s1,s2,s3,s4: string;
begin
s1:='параллелограмм';
s2:=copy(s1,10,5);
s3:=s2;
delete (s3,2,1);
s3:=s3+copy(s1,2,1);
s4:=s1;
delete (s4,5,5);
delete (s4,8,2);
insert ('ф',s4,8);
write (s2,' ',s3,' ',s4)
end.
var s1,s2,s3,s4: string;
begin
s1:='параллелограмм';
s2:=copy(s1,10,5);
s3:=s2;
delete (s3,2,1);
s3:=s3+copy(s1,2,1);
s4:=s1;
delete (s4,5,5);
delete (s4,8,2);
insert ('ф',s4,8);
write (s2,' ',s3,' ',s4)
end.