. уровень А 1. напишите программу вычисления длины окружности и площади круга по величине радиуса круга ​

Var   a: array[1..40] of integer;   i,n,k3,k,s,a3: integer; begin   write('n='); read(n);   for i: =1 to n do read(a[i]);   k3: =0; {a}   s: =0; k: =0; {b}   a3: =-1000; {c}   for i: =1 to n do begin       if a[i] mod 10=3 then inc(k); {a}       if (a[i]> 0) and (a[i] mod a[1]=0) then begin {b}           s: =s+a[i]; inc(k)           end;       if (a[i]< 0) and (a[i]> a3) and (a[i] mod 3=0) then a3: =a[i]; {c}       end;   writeln('кол-во чисел. оканчивающихся на 3: ',k3); {a}   writeln('среднее арифметическое по условию: ',s/k: 0: 3); {b}   if a3< > 1000 then writeln('наибольший отрицательный, кратный 3: ',a3) {c}   else writeln('нет отрицательных элементов, кратных 3') end. для решения конкретного пункта выбирать только операторы, помеченные этим пунктом, например, {a} для а)