Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Procedure ile Toplama Programı Cuma Haz. 06 2008, 11:58
program toplam; uses wincrt; var x,y,t:integer; procedure toplam; begin t:=x+y; end; begin x:=100; y:=300; toplam; writeln(x,'+',y,'=',t); readln; end.