Fonksiyon Kullanımı

program function_cikar;





{$APPTYPE CONSOLE}





var


x,y,z:integer;


function cikar(a,b:integer):integer;


 begin


   cikar:=a-b;


   write('a-b=',a-b);


                read;


 end;





begin


  write('Lütfen İki Sayi Giriniz.');


     read(x,y);


  z:=cikar(x,y);


  write('Çıkarma Sonucu:',z);


  readln;


  readln;





end.