На вход дается произвольное число, необходимо перевернуть его так, чтобы первая цифра стала последней, второе предпоследним, и так далее.

подсказка: остаток отделения %, целочисленное деление //
на питоне как можно проще

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.

Красным цветом это изменение формата

Чекай, програма в блокноте

1)3. 2)1. 3)1. 4)2. 5)3. 6) 1 заголовок окна. 2 основное меню. 3 кнопки управления окном. 4 лента с инструментами. 5 линейка. 6 зоголовок окна. 7 рабочая зона. 7) 1 страница. 2 абзац. 3 строка. 4 фрагмент. 5 слово. 6 символ.