Rogram Menghitung Pulsa Dengan Paskal

Program  Menghitung_Pulsa;

Uses crt;

Var

      detik : integer:

      total  : integer:

Begin

      crlscr:

      writeln(‘jumlah harga’);readln(detik);

      total := detik * 10;

Wrteln (total harga=;total);

Readln;

End.