Написать функцию, которая возвращает сумму первой и последней цифр входящих в запись числа типа Longint .

var x:longint; k,s:integer;
begin
readln(x);
s:=x mod 10;
while x>0 do begin
k:=x mod 10;
x:=x div 10;
end;
s:=s+k;
writeln(s);
end.