№2
Промежуточные значения n и s даны в приложении.
Ответ: 30.
№3
var n: integer;
begin
read(n);
if n mod 2=0 then n:=n div 4
else n:=n*5;
writeln(n);
end.
№4
var
x, y: integer;
begin
read(x);
if x > 5 then y := x * x - 1
else if x < -2 then y := 2 * x;
writeln(y);
end.
№5
var
i: integer;
pr: biginteger;
begin
pr := 1;
for i := 10 to 25 do
if i mod 2 = 1 then pr := pr * i;
writeln(pr);
end.
