Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности, которые:1) кратны 72) нечетные и отрицательные — Pascal(Паскаль)

uses crt;
const n=50;
var m:array[1..n]of integer;
i,k,s1,s2,s3:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
 begin
  m[i]:=-30+random(70);
  write(m[i],' ');
 end;
 writeln;
 s1:=0;
 s2:=0;
 s3:=0;
 for i:=1 to n do
 begin
  if m[i] mod 7=0 then s1:=s1+m[i];
  if (m[i]<0) and (abs(m[i]) mod 2=1) then s2:=s2+m[i];
  if m[i]>i*i then s3:=s3+m[i];
 end;
 writeln('S1=',s1);
 writeln('S2=',s2);
 writeln('S3=',s3);
 readln;
end.