Составьте программу, с помощью которой из слова ЖЕЛЕЗНОДОРОЖНИК получаются слова: донор ...

Question

Составьте программу, с помощью которой из слова ЖЕЛЕЗНОДОРОЖНИК получаются слова:
донор
колено
крокодил
(язык Pascal)

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var s:='ЖЕЛЕЗНОДОРОЖНИК';
  Writeln(s[8],s[9],s[6],s[7],s[10]);
  Writeln(s[15],s[7],s[3],s[4],s[6],s[7]);
  Writeln(s[15],s[10],s[7],s[15],s[7],s[8],s[14],s[3])
end.