Listing Program Water Level pada Tangki Air

berikut ini adalah listing program dari flowchart water level pada tangki air, menggunakan bahasa pemrograman pascal :

uses crt;

var // inisialisasi program

    A:real; // A sebagai bilangan real

Begin // memulai program

    clrscr; // mengahpus layer lcd

writeln('Masukan Sisa Jumlah Debit air Dalam Tangki :'); // memasukan sisa debit air, apaka sudah terisi atau belum.

    readln<A>; // membaca A sebagai real.

    if A <=100 then

    writeln( 'Kondisi Air Dalam tangki kosong, pompa air ON' );

    A : =A+1;

    case A of

    // kondisi dimana tangka air kosong.

    else

    if A>=200 then

writeln( 'Kondisi Air Dalam Tangki Penuh, pompa air OFF' ); // kondisi apabila tangka air sudah penuh.

    else

    writeln( 'kondisi Air Dalam Tangki belum penuh, Pompa ON' );

    A :=A+1;

    Case A of

    // untuk kondisi air dalam pengisian dan tangki air belum penuh.

end.