Программирование циклов (free Pascal)

[Jon_Morgan]

последовательно вводятся n натуральных чисел (n<=10). Вычислить сумму тех из них, у которых первая цифра равна последней. (Не используя массивы, функции, процедуры, используя цикл в цикле

program main;
uses math;
var n, sum, a:integer;
begin
sum:=0; a:=0;
repeat
a:=a+1;
read (n);
if n div (10**trunc(log10(m))) =n mod 10 then sum:=sum+m;
until a>=10;
writeln (sum);
end.

Не знаю как можно сделать цикл в цикле, и ввести любое количество чисел до 10, а не именно 10 чисел.

[ViktorR]

var n, m, i : integer;
        sum : longint;
last, first : integer;
begin
   randomize;
   readln(n); {сколько чисел надо вводить}
   sum := 0;
   for i := 1 to n do  {первый цикл}
   begin
      m := random(30000); {ввод числа}
      last := m MOD 10;   {правая цифра числа}
      first := m DIV 10;
      while (first > 9) do      {цикл вложенный в первый цикл}
         first := first DIV 10; {и его тело}
                                {получаем левую цифру числа}
      if first = last then      {правая и левая цифры равны}
      begin
         sum := sum + m;        {суммируем}
         write(m:8,'  ');       {выводим число для контроля}
      end;
   end;                         {конец первого цикла}
   writeln;                     {все числа обработаны}
   writeln(sum);                {выводим значение суммы}
   readln;
end.

Как-то так, ...