На входе имеем любое число, которое запрашивается у пользователя. Пока это число не будет превосходить 100 к нему будет прилагаться числа 5 и выводиться каждое новое значение этого числа !

var a,b,c,g:integer;

begin

 g:=100;

 c:=5;

 writeln('Введите число:',' ');

 readln(a);

 writeln();

 writeln('Новые значения числа:');

 while a<=g do begin

   a:=a+c;

   writeln();

    writeln(a);

   end;

end.