Menentukan Pembayaran Pulsa Listrik

program listrik;
uses crt;
const
  wat = 600;
var
  a,b : integer ;
begin
 clrscr;
 write('Pemakaian Pulsa Listrik =');read(a);
 b := wat * a;
 writeln('Total Yang Dibayar = ',b);
 readln;
end.


program listrik;
uses crt;
var
  a,b : longint;
begin
 clrscr;
 write('Pemakaian Pulsa Listrik =');readln(a);
 b :=a * 600;
 writeln('Total Yang Dibayar = ',b);
 readln;
end.

Posted in: BAHASA PASCAL