Pascal - Задано число n неизвестной разрядности. Вычислить сколько цифр в этом числе

[Виолетта]

1. Задано число n неизвестной разрядности. Вычислить сколько цифр в этом числе.
2. Среди всех трехзначных чисел нужно выбрать и вывести на экран все числа, заканчивающиеся на 5.

[Simply-Art]

Первая прога :

var
 n,r:integer;
begin
readln(n);
r:=1;
while n div 10 >=1 do
 begin
  r:=r+1;
  n:=n div 10;
 end;
writeln('Число разрядов ',r);
readln;
end.

Вторая :

var
 n:integer;
begin
readln(n);
if n mod 10 = 5 then
 writeln('Заканчивается на 5');
readln;
end.

[capta1n]

2)

program pascall;
var
 i : 95..995;
begin
  i:=95;
  repeat
    inc(i,10);
    write (i,'|')
  until i=995;
  readln
end.