Перевести код с Паскаля на Питон var i, n:integer;a:longint; begin read(n); a:=5; for i:=2 to n+1 do Begin write(a, ' '); a:=a*5; end; end.

n = float(input())

a = 5

for i in range(2,n+1):

   print(a)

   a *= 5

#если слетели табуляции, то поправьте их самостоятельно.

n = int(input())

a=5

for i in range(2,n+1,1):

   print(a, ' ')

   a*=5

Объяснение:

//PascalABC.NET 3.0
const  n = 5;
begin
  var a := ArrRandomReal(n);
  var b := ArrRandomReal(n);
  write('Длины первого катета: ');
  foreach var i in a do write(i : 5 : 2);
  write(NewLine, 'Длины второго катета: ');
  foreach var i in b do write(i : 5 : 2);
  var imax := 0;  for var i := 1 to n - 1 do
    if a[imax] * b[imax] < a[i] * b[i] then
      imax := i;
  writeln(NewLine, 'Номер: ', imax + 1);
  writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);
  writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2);
end.

Const
  n=10;
var
  a,b:array[1..n] of integer;
  i,si,smax:integer;
begin
  Writeln('Введите парами длины катетов ',n,' треугольников');
  smax:=0;
  for i:=1 to n do begin
    Read(a[i],b[i]);
    si:=a[i]*b[i]; { пополам разделим потом максимальное }
    if si>smax then smax:=si
    end;
  Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
  for i:=1 to n do
    if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
  Writeln
end.

Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20