program:tim so;
var:i,n,d:integer;
A:array [1..100] of real;
begin
write('Nhap cac so,n= ');reald(n);
for i:=1 to n do begin write(i,'.'); readln(a[i]); end;
d:=0;
for i:=1 to n do
begin
if a[i]<0 then d:=a[i];
end;
writeln('so am',d);
end.
 

program:tim so;
var:i,n,d:integer;
A:array [1..100] of real;
begin
write('Nhap cac so,n= ');reald(n);
for i:=1 to n do begin write(i,'.'); readln(a[i]); end;
d:=0;
for i:=1 to n do
begin
if a[i]<0 then d:=a[i];
end;
writeln('so am',d);
end.