const n=5; var a:array [1..n] of integer; i,min:integer; begin for i:=1 to n do read(a[i]); min:=a[1]; for i:=1 to n do if abs(min)>abs(a[i]) then min:=a[i]; writeln(min); end.