Роб опоздал на начало партии и уже видит камень, надо найти все направления

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.

сидерический год

(неясно-пиши в личку)

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.