Ввести целое число N с клавиатуры. Подсчитать сумму всех целых чисел до N делящихся нацело (на 5) — Pascal(Паскаль)

program p1;

label 1;

var
  i, n, sum: integer;
  prod: char;

begin
1:
  write('N= ');
  readln(n);
  sum := 0;
  i := 0;
  while (i + 1) do
  begin
    if i mod 5 = 0 then
      sum := sum + i;
    i := i + 1;
  end;

  writeln('Summa= ', sum);

  write('Vi xotite prodoljiti? (y/n) ');
  readln(prod);
  if prod = 'y' then
    goto 1;
  readln;

end.