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

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

Program n1;Uses CRT;Var n,k,ch,i,l,a,b,s: integer;beginClrScr;Writeln('Vvedite n');Readln(n);l:=n;Repeatk:=k+1;n:=n div 10;Until n=0;ch:=1;For i:=2 to k doch:=10*ch;a:=l div ch; b:=l mod 10;write(a+b);readlnend.