Program n1;Uses CRT;Var a: string;begina:='информатика';delete(a,1,2); delete(a,6,4);writeln(a);readlnend.
Program n1;
Uses CRT;
Var a: string;
begin
a:='информатика';
delete(a,1,2); delete(a,6,4);
writeln(a);
readln
end.