funcion

[carl778]

lo tomaré en cuenta lo de casimiro ,gracias por aclararmelo...
bueno esto es lo que he hecho y mi consulta era de como mostrar el valor de d y a segun el codigo..dentro de un edit.
si alguien podria decirme en que estoy mal o como hacer la estructura...para sacar ambos valores
ete.. uso delphi 2010...

Código Delphi [-]
function primeryúltimodígito(n:integer):integer;
var e,inv,d,a:integer;
begin
  inv:=0;
  e:=n;
while n>0 do
begin
   d:=n mod 10;
    inv:=inv*10+d;
    n:=n div 10;
end;
a:=e mod 10;
result:=
end;
procedure TForm2.N1PRIMERYLTIMODGITO1Click(Sender: TObject);
begin
edit2.text:=
end;

end.