pengurangan

program pengurangan;
uses wincrt;
var
a,b,c : integer;
begin
writeln('program pengurangan');
writeln(' ');
writeln(' ');
write('masukkan nilai a : '); readln(a);
write('masukkan nilai b : '); readln(b);
c := a-b;
writeln('hasilnya pengurangan ',a,' - ',b,' = ',c);
end.