Something

program dalus;
  var mas : array [1..100] of integer;
  dal, sum, i : integer;
begin
  mas[1] := 1;
  mas[2] := 2;
  mas[3] := 3;
  mas[4] := 4;
  mas[5] := 5;
  mas[6] := 0;

  Write('Iveskite x: ');
  ReadLn(dal);
  i := 1;
  sum := 0;
  while (mas[i] <> 0) do
  begin
    if (mas[i] mod dal = 0) then sum := sum + 1;
    i := i + 1;
  end;
  WriteLn('Sum: ', sum);
  Readln;
end.