Penerimaan Siswa Baru Solusindo

program Penerimaan_Siswa_Baru_Solusindo;
uses crt;
        var
                nama, alamat: string;
                nis, biayabelajar, cicil1, cicil2, punyauang, sisauang, tunggakan: longint;
begin
clrscr;
        biayabelajar := 150000;
        writeln('Program Penerimaan Siswa Baru Solusindo');
        writeln;
        write('NIS : '); readln(nis);
        write('Nama : '); readln(nama);
        write('Alamat : '); readln(alamat);
        writeln('Belajar : Pemograman Pascal');
        writeln('Biaya Belajar : Rp. ', biayabelajar);
        write('Anda Memiliki Uang : Rp. '); readln(punyauang);
        write('Cicilan 1, Membayar : Rp. '); readln(cicil1);
        sisauang := punyauang - cicil1;
        writeln('Sisa Uang : Rp. ', sisauang);
        write('Cicilan 2, Membayar : Rp. '); readln(cicil2);
        sisauang := sisauang - cicil2;
        writeln('Sisa Uang : Rp. ', sisauang);
        tunggakan := punyauang - cicil1 - cicil2;
        writeln('Tunggakan : Rp. ', tunggakan);

readln;
end.