Что напечатается в результате выполнения программы? var a:string; m:integer; begin a := 'монтажник'; delete (a, 8, 2); insert('ф',a,1); m := length (a); writeln (m); a:=a[1]+copy(a,3,4)+a[m]; write(a); end. 6 монтаж 6 фонтан 8 фонтан 6 фонтан
Задание

Что напечатается в результате выполнения программы?
var
a:string;
m:integer;
begin
a := 'монтажник';
delete \(a, 8, 2\);
insert\('ф',a,1\);
m := length \(a\);
writeln \(m\);
a:=a

\[1\]
+copy\(a,3,4\)+a
\[m\]
;
write\(a\);
end.

  • 6
    монтаж
  • 6
    фонтан
  • 8
    фонтан
  • 6
    фонтан