var s: string;
begin s := 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]);end.
var
s: string;
begin
s := 'видеоадаптер';
writeln(s);
writeln(s[3] + s[2]+ s[5] + s[3]);
writeln(s[12] + s[6] + s[3] + s[2] + s[5]);
writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]);
end.