Вводится 4 числа, надо узнать есть ли среди них отрицательные? Паскаль с циклом for

var

haveNegative : boolean;

x, i : integer;

begin

haveNegative := false;

for i:= 1 to 4 do

   begin

   readln(x);

   if x < 0 then

       haveNegative := true;

   end;

if haveNegative then

   writeln('Отрицательное число есть!')

else

   writeln('Отрицательного числа нет!');

end.

//я мог ошибаться по поводу понятия "десятидневка" //поэтому интерпретировал как "любые 10 дней" #include < iostream> #include < stdlib.h> #include < ctime> using namespace std; int main() {    srand(time(0)); int ar[30]; int max=0; int ar2[21]; int is,iv; cout< < "mounth \n"; for(int i=0; i< 30; i++){            ar[i]=rand()%100+1;             cout< < ar[i]< < " ";             }    for(int i=0; i< 21; i++){            ar2[i]=ar[i]+ar[i+1]+ar[i+2]+ar[i+3]+ar[i+4]+ar[i+5]+ar[i+6]+ar[i+7]+ar[i+8]+ar[i+9]; //не влезло            if(max< ar2[i]){                          max=ar2[i];                           is=i+1;                           iv=i+10;                           }                          }              cout< < "\n"< < is< < "-"< < iv;     cin.get();     cin.get(); return 0; }