Var s,k: integer
begin
s:=1;
for k:=1 to 30 do
s:=(-1) * s;
writeln(s)
end

думаю = 1

Объяснение:

когда к = 1, s = -1 (т.е = -1*1)

когда к = 2, s = 1 (т.е = -1*-1)

когда к = 3, s = -1

когда к = 4, s = 1

когда к = 5, s = -1

когда к = 6, s = 1

и т.д

к = 30 - четное число, поэтому ответ положительный 1