Найти сумму двузначных натуральных чисел до n у которых цифры равны между собой. программа на паскале через цикл for

Var
   N,S:integer;
Begin
WriteLn('Введите двузначное число: ');ReadLn(N);
S:=0;
For N:= 10 to N do
    if N div 10 = N mod 10 then S:=S+N;
WriteLn('S = ',S);
End.