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.
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.