Kod:
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.