Задание 2. Переделать
данную программу так, чтобы определить существует ли в данной таблице
отрицательное(двухзначное число, 0, и т. д.)
program z2; 
var a: array [1..5] of integer; 
i:integer; n: string[3]; 
begin
 for i:=1 to 5 do readln(a[i]);
 n:= ' нет '; 
for i:= 1 to 5 do if a[i] <0 then n:=' да ' ;
 writeln( n); 
readln; 
end.