Даны натуральное число n и последовательность целых чисел а1, а2, … аn. из наибольшего элемента извлечь квадратный корень. составить блок-схему алгоритма, написать программу.

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.