Rogram Menghitung Pulsa Dengan Paskal

Posted by Rozaq D' Acewell™

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.