Написать программу в питоне
через цикл

чето типо того

uses crt;

var a,b,s:real; z:char;
procedure vyvod(s:real);begin write(s); end;
procedure plus(a,b:real);
begin
s:=a+b;
write('Suma = '); vyvod(s);
end;
procedure minus(a,b:real);
begin
s:=a-b;
write(' = '); vyvod(s);
end;
procedure mn(a,b:real);
begin
s:=a*b;
write(' = '); vyvod(s);
end;
procedure de(a,b:real);
begin
s:=a/b;
write(' = '); vyvod(s);
end;
procedure vvod(a,b:real; z:char);
begin
writeln('Write a,b');
readln(a,b);
writeln('CHOOSE + - * / ');
readln(z);
case z of
'+':plus(a,b);
'-':minus(a,b);
'*':mn(a,b);
'/':de(a,b);
end;
end;

begin
vvod(a,b,z);

readln;
end.

Program a_86betiri;
uses crt;
const n=20;
var
  a:array[1..n] of real;
  sum, mt: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  mt:=1;
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(100);
      sum:=sum+a[i];
    end;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if a[i]<(sum/n) then
      mt:=mt*a[i];
      write (a[i]:7:2);
    end;
   writeln();
   writeln('Произведение элементов, меньших, чем среднее арифметическое:  ',mt);
end.