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

[Jon_Morgan]

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

[evg_m]

function NeedADD(x: integer): boolean;
var
  n1, n2: integer;
begin
  n1:=x mod 10; //последняя цифра
  n2:=x; while n2>10 do n2:=n2 div 10; //теперь есть и первая цифра {n2<10}
  result:=n2 =n1;
end;

readln(m); // вводи первое число
s:=0;
while (m<>0) do begin // ДЛЯ остановки будем использовать число 0.
  if NeedADD(m) then s:=s+m; 
  readln(m); //  вводим следующее число (см. замечание при while)
end;
writeln('s=',s);

осталось немного, перенести тело функции (ее код) в основную программу, чтобы получить

конструкцию "цикл в цикле"

или сделать тоже самое(перенести) с ЕЕ комментариями.

[Jon_Morgan]

Не видит идентификатор result

[ViktorR]

Вот тут уже давалось решение этой задачи, но ТС не слишком желает себя утруждать ...
Так понимаю ...
http://www.programmersforum.ru/showthread.php?t=301146
Jon_Morgan
За то время, которое прошло, можно было бы и разобраться с функциями и понять, как выкусить тело функции и вставить его в свою прогу для более полного удовлетворения препода. А если бы, изучив п/п (функции и процедуры) сдал задачу, то вообще ...


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