Дана последовательность: 4,9,14,19,24… Составить программу, определяющую, сколько слагаемых надо взять, чтобы получить сумму — С — Pascal(Паскаль)

var
  a, b, c, i: integer;

begin
  Write('Введите число С ');
  readln(c);
  i := 4; // первое слагаемое
  a := 1; // количество
  b := 4; // сумма
  repeat
    i := i + 5; // очередное слагаемое
    b := b + i; // очередная сумма
    a := a + 1; // количество
  until (b >= c);
  write('Колличество слагаемых равно ', a);
  readkey;

end.