m:='информатика'; b:=copy\(m,3,5\); z:=length\(m\); y:=length\(b\); writeln\('z=';z,'y=';y\);