Проверьте, делится ли выбранное число на 5, на 11 или 13 нужно сделать в pascal abc

Var a: integer; begin writeln('введите число'); readln(a); if (a mod 5=0) then writeln('число ',a,' делится на число 5') else writeln('число ',a,' не делится на число 5'); if (a mod 11=0) then writeln('число ',a,' делится на число 11') else writeln('число ',a,' не делится на число 11'); if (a mod 13=0) then writeln('число ',a,' делится на число 13') else writeln('число ',a,' не делится на число 13'); end.

program project1;

var s: integer;

var d: array[1..12] of integer;

var i: integer;

begin

      for i: =1 to 12 do

        begin

                write('введите число №');

                write(i);

                write('> ');

                readln(d[i]);

        end;

        for i: =1 to 12 do

        begin

                s: = s + d[i];

        end;

        writeln(s);

end.        

1.

program project1;

var arr: array[1..8] of integer;

var i: integer;

begin

  for i: =1 to 8 do

  begin

      write('введите число №');

      write(i);

      write('> ');

      readln(arr[i]);

  end;

  write('отрицательные числа: ');

  for i: =1 to 8 do

  begin

      if arr[i] < 0 then

      begin

        write(arr[i]);

        write(' ');

      end;

  end;

  writeln('');

end.