Contoh Program Pascal Tagihan Pemakain Air

program tagihan_air;
uses wincrt;
var
no,nama: string;
awal,akhir,n1,n2,n3, Total_bayar,pakai,total_pemakaian,tipe: real;
lagi: char;
label a11,b11,c11;