******************************************** * NAMA : KASMO ADIYANTO * * EMAIL: kasmoadiyanto@gmail.com * * kasmoadiyanto@yahoo.co.id * * momo_ch410@yahoo.com * * Blog : http:\\adiyantokasmo.blogspot.com * ******************************************** program runtunan_1; uses crt; var a,b,c,d: integer; begin clrscr; writeln ('Program mencari nilai c dan d'); write ('masukan nilai a:'); readln (a); write ('masukan nilai b:'); readln (b); c:= (a+b); d := (a*b); writeln ('hasil nilai :',c); writeln ('hasil nilai :',d ); readln; end.