По локальной сети регулярно перехватывались сообщения, состоящие только из цифр от 0 до 9. Некоторые косвенные данные позволили предположить, что сообщения содержат текст, вариант которого предлагается расшифровать. Известно, что сообщение 5 4 6 5 7 8 7 4 соответствует слову «Text».

Напишите, что содержится в следующем перехваченном сообщении:

5 4 6 8 6 9 7 3 2 0 6 9 7 3 2 0 7 3 6 5 6 3 7 2 6 5 7 4 2 0 7 4 6 5 7 8 7 4

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

var a: array [1..10] of integer;

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

        if a[k]> a[i] then k: =i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

в правильности написания функции типов не уверенна.

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах