For i:=n downto 1 do write (mas[i], ' ');
n - количество чисел в массиве
Нууууу очень сложно это гужно поискать в интернете
var n,z,n1,e:integer;
begin
e:=0;
readln(n);
n1:=n div 2;
for z:=1 to n1 do begin
if (n mod z = 0) then e:=e+z;
end;
if (e=n)
then writeln('соверншенное')
else writeln('0');
end.
Var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 2 * x;
s := a;
i := 0;
repeat
i := i + 1;
a := a * 4 * x * x / (2 * i - 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', Sinh(2*x):15:5);
x := x + h;
until x >= xk;
end.