Бизнесмены боря вова гриша и гена зарабатывают сумасшедшие деньги, их фамилии засекречены, но удалось их узнать, правда непонятно какая кому принадлежит. их фамилии: иванов, енин, сидоров, петров. так же наши шпионы выяснили: 1) боря и петров не имеют личные самолёты. 2) гриша и иванов вообще ничего личного не имеют, кроме счетов в швейцарском банке. 3) гена теперь важнее енина, хотя енин и имеет личный самолёт. 4) петров важнее енина. у кого какая фамилия?

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}