Определить количество членов последовательности 5, 10, 15,…, 150, кратных трём, и найти их сумму — Pascal(Паскаль)

Program PascalGuru;

var
  i: integer;
  k, s: integer;

begin
  i := 0;
  s := 0;
  k := 0;

  repeat
    inc(i, 5);

    if i mod 3 = 0 then
    begin
      inc(k);
      writeln(i);
      inc(s, i);
    end;

  until i = 150;

  writeln;
  writeln('Kol-vo= ', k);
  writeln('Summa=  ', s);

  readln;

end.