Отметьте слово, которое может быть зашифровано в виде кода: *@$#* одинаковые символы соответствуют одинаковым буквам. a) диод b) шалаш c) киоск d) олово

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.