bilangan

Uses crt;

Var a,b,c : integer;

Begin

Clrscr;

Write (‘masukkan bilangan pertama: ‘);

Readln (a);

Write (masukkan bilangan kedua: ‘);

Readln (b);

C:=a*b-b;

Writeln;writeln(‘hasilnya adalah : ‘, c);

Readln;

End.