Дан массив. Найти удвоенную сумму элементов, являющихся одновременно положительными и кратными 5 — Pascal(Паскаль)

const
  n = 10;

var
  i, s: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  s := 0;

  for i := 1 to n do
  begin
    if ((a[i] > 0) and (a[i] mod 5 = 0)) then
    begin
      s := s + (a[i] * 2);
    end;
  end;

  writeln('-------');
  writeln(s);

end.

Program lab9var2zad2;

Uses crt;

Var
  a: array [1 .. 4] of integer;
  s: longint;
  i: integer;

Begin
  clrscr;
  Writeln('vvedite 4 elementov massiva');
  s := 0;
  for i := 1 to 4 do
  begin
    readln(a[i]);
    if ((a[i] > 0) and (a[i] mod 5 = 0)) then
      s := s + (a[i] * 2);
  end;
  Writeln('udvoenoe summa elementov massiva= ', s);

end.