Определите ключевое поле таблицы а)автор б) название в)музей г)№

Ключевое  слово:  

1. современный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   var pow3: integer-> integer: =n-> n*n*n;   var good: integer-> boolean: =n-> (pow3(n div 100)+   pow3((n div 10) mod 10)+pow3(n mod 10))=n;   range(100,999).where(x-> good( end. результат: 153 370 371 407 2. школьный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 var   i,n,d100,d10,d1: integer; begin   for i: =100 to 999 do begin       d100: =i div 100;       d10: =(i div 10) mod 10;       d1: =i mod 10;       if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then           write(i,' ')       end; end.

Const n = 10; var   a: array[1..n]of integer; i,k,temp: integer; begin   for i: =1 to n do a[i]: =random(21) - 10;   repeat       writeln('введите k (k< > 1 и k< > 10)');       readln(k);       if (k=1) or (k=n) then writeln('ошибка, повторите ввод');   until (k< > 1) and (k< > n);   for i: =1 to n do write(a[i]: 4); writeln;   temp: =a[k-1]; a[k-1]: =a[k+1]; a[k+1]: =temp;   for i: =1 to n do write(a[i]: 4);   end. тестовое решение: введите k (k< > 1 и k< > 10) 1 ошибка, повторите ввод введите k (k< > 1 и k< > 10) 5     7  -5  -6    6  -7    3    9    8    7  -6     7  -5  -6    3  -7    6    9    8    7  -6