Пока число х не станет большим 100 прибавлять к нему число 5 , посчитать сколько раз оно было прибавлено( решить через программу паскаль) через repeat решить

Var x,n: integer;
begin
  readln(x);
  repeat
    x:=x+5; n:=n+1;
  until x >100;
  writeln(n);
end.