Ну несложно же... пару минут от силы на задачу.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(ReadInteger('n=')).Aggregate(BigInteger(1),(x,y)->x*y*y).Println
end.
<u>Пример</u>
n= 100
8709782489089480079416590161944485865569720643940840134215932536243379996346583325877967096332754920644690380762219607476364289411435920190573960677507881394607489905331729758013432992987184764607375889434313483382966801515156280854162691766195737493173453603519594496000000000000000000000000000000000000000000000000
Var
a,b,c:integer;
begin
readln(a,b);
If (a mod 2 = 0) and (b mod 2 = 0) then
begin
c:=a+b;
writeln('Сумма= ',c);
end
else
if (a mod 2 = 1)and (b mod 2 =1)the
begin
c:=a*b;
writeln('Произведение= ',c);
end
else
<span>begin
a:=a*5;
b:=b*5;
writeln('A=',a,' B= ',b);
end;end.<span>
</span></span>
Задание 6:
Ответ - 3( Сместиться на 16; -17)