Дано натуральное число n. найти сумму первой и последней цифры этого числа

Возможно, не самое рациональное решение, но всё же.

Program n1;
Uses CRT;
Var n,k,ch,i,l,a,b,s: integer;
begin
ClrScr;
Writeln('Vvedite n');
Readln(n);
l:=n;
Repeat
k:=k+1;
n:=n div 10;
Until n=0;
ch:=1;
For i:=2 to k do
ch:=10*ch;
a:=l div ch; b:=l mod 10;
write(a+b);
readln
end.