Склавиатуры вводится целоя пятизначное число. написать программу нахождения суммы 1-ой и последней цифры

Var
   n, s: integer;
begin
   readln(n);
   s := n mod 10 + n div 10000;
   writeln(s);
end.