uses crt; var a,b,t:Integer; procedure toplama; begin t:=a+b; end; begin clrscr; textcolor(blue); write('1.sayiyi giriniz:');readln(a); write('2.sayiyi giriniz:');readln(b); toplama; writeln(a,'+',b,'=',T); readln; end.