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

MaximVolkov14    3   14.05.2020 19:34    0