40 . строка а: =’аэродинамика’. используя операции обработки строковых величин составить из букв, содержащихся в строке а новые слова. 3 слова хватит. язык паскаль

begin

 var A:='Аэродинамика';

 A[5:].Println;

 A[5:12].Println;

 (A[9]+A[12]+A[3]+A[6:9]+A[5]).Println

end.

var s,st: string;

begin

 s:='Аэродинамика';

 st:=copy(s,5,7);

 writeln(st);

 st:=copy(s,3,6);

 writeln(st);

 st:=copy(s,1,5)+copy(s,3,2)+s[9];

 writeln(st);

 st:=copy(s,9,3)+copy(s,3,5);

 st:=s;

 delete(st,1,6);

 delete(st,3,4);

 st:=st+copy(s,3,3);

 writeln(st);

 st:=copy(s,11,2)+s[3]+s[9]+s[12];

 writeln(st);

end.  

динамик

родина

Аэродром

народ

карма