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.