Delpide Fonksiyon Kullanımı

 program function_topla;

{$APPTYPE CONSOLE}

var
x,y,z:integer;
function topla(a,b:integer):integer;
 begin
   topla:=a+b;
   write('a+b=',a+b);
                read;
 end;

begin
  write('Lütfen İki Sayi Giriniz.');
     read(x,y);
  z:=topla(x,y);
  write('Toplama Sonucu:',z);
  readln;
  readln;

end.