дано натуральное число 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.