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.