//PascalABC.Net 3.2
{1}
begin
var sum:=0;
for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger;
print ('Сумма:', sum);
end.
{2}
function f(n: integer):=1/n;
begin
var sum:=0.0;
for var i:=1 to readinteger ('Введите n: ') do sum+=f(i);
write ('S = ', sum);
end.
{3}
begin
var count:=1;
for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2;
write ('Кол-во амеб: ', count);
end.
{4}
begin
var sum:=0.0;
var x:=readreal ('Введите x: ');
for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x);
write (sum);
end.
{5}
function pow(a, n: integer):biginteger;
begin
var sum:=1;
for var i:=1 to n do sum*=a;
result:=sum;
end;
begin
write (pow(readinteger, readinteger));
end.