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

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

function f(x:longint):integer;var s:integer;begins:=x mod 10;while x>9 do x:=x div 10;f:=s+x;end;beginwriteln(f(6120879));end.Результат:15