1. стволвид
2.
var
t: string;
begin
t := 'ДЕЙСТВИТЕЛЬНОСТЬ';
WriteLn (Copy (t, 1, 7) + Copy (t, 2, 1));
WriteLn (Copy (t, 4, 1) + Copy (t, 6, 2) + Copy (t, 1, 2) + Copy (t, 8, 4));
WriteLn (Copy (t, 1, 2) + Copy (t, 10, 1) + Copy (t, 13, 1));
end;
.....................не верно у тебя