LATIHAN D NO 3 PROGRAM HITUNG TAGIHAN

Program HitungTagihan;
uses wincrt;
const tarif=150;
      langganan=25000;
var                          
      pulsa:byte;
      tagihan:integer;
begin
clrscr;
 write('Banyaknya Pulsa=');readln(pulsa);
 tagihan:=(pulsa*tarif)+langganan;
 writeln('Jumlah Tagihan=',tagihan);
 readln;
end.

hasilnya