Вычислите значение выходного сигнала для логической схемы: фото

Const   n = 5;   var   arr: array [1..n] of integer;   i, n1, sum: integer; begin   write('n = ');   readln(n1);   for i : = 1 to n do   begin       write('a[', i, '] = ');       readln(arr[i]);   end;     i : = 1;   sum : = 0;   while (sum < = n1) and (i < = n) do   begin       sum : = sum + arr[i];       i : = i + 1;   end;     if sum > n1 then       writeln(sum)   else       writeln('summa not grether then n'); end.

Const   n = 5;   var   arr: array [1..n] of integer;   i, max: integer; begin   for i : = 1 to n do   begin       write('a[', i, '] = ');       readln(arr[i]);   end;     max : = 1;   for i : = 1 to n do       if (max < arr[i]) and (arr[i] mod 5 = 0) then           max : = arr[i];     if max = 1 then       writeln('no')   else       writeln(max); end.