Unit Kullanımı

unit Unit1;





interface


procedure topla;





var


toplam,x,y:integer;








implementation





 procedure topla;


begin


  writeln('İki sayi giriniz.');


  readln(x,y);


  writeln('Sonuç:',toplam);


  readln;


end;


 


end.