ProgrammerV1 Var n, i, x: integer;
begin
randomize();
n := 1;
for i := 1 to n do
beginx := random (-10,17); 
writeln(x);
end;
end.