С помощью операций вырезки и соединения составить из слова "интеграл" слова "гантели", "рентген", "тигр", "агент" и определить их длину.

Program integral;

uses crt;

Var

A : string;

Begin

clrscr () ;

A : = 'интеграл';

writeln ('a) ', A [5] + A [7] + Copy (A, 2, 3) + A [8] + A [1]) ;

writeln ('б) ', A [6] + A [4] + Copy (A, 2, 2) + A [5] + A [4] + A [2]) ;

writeln ('в) ', A [3] + A [1] + Copy (A, 5, 2)) ;

writeln ('г) ', A [7] + A [5] + A [4] + Copy (A, 2, 2)) ;

readln () ;

End.