Program Pengurangan

program pengurangan;

uses wincrt;

var
   a, b, c : integer;

begin
     write('Masukan nilai A : ');
     readln(a);
     write('Masukan nilai B : ');
     readln(b);
     c := a - b;
     writeln();
     writeln('Hasil : ',c);

readkey();

end.