Турбо паскаль

[Gabi]

Здраствуйте! Я бы хотела попросить,Вас, помочь мне с решением задачи по турбо паскалю. Просто я уже как 2 дня не могу решить. Задача такова: Составить программу нахождения суммы всех трехзначных чисел, у которых первая цифра равна сумме последней и средней.

[Sazary]

uses crt;

var
i,m,n,k,r : integer;
sum : longint;
begin
clrscr;
sum := 0;
for i:=100 to 999 do
 begin
 r:=i;
 m := r mod 10;
 r := r div 10;
 n := r mod 10;
 r := r div 10;
 k := r mod 10;
 if k = m+n then sum:=sum+i;
 end;

writeln('Summa= ',sum);
readln;
end.

[Gabi]

Спасибо большое!!!!))))