program atm

program atm;
uses crt;
var
       saldo_sisa:real;
       ambil_uang:real;
       status:boolean;
       saldo_akhir:real;
begin
       clrscr;
       textcolor(9+128);
       textbackground(4);
       sound(400);
       textmode(CO80);
       saldo_sisa:=4000000;
       gotoxy(5,1);
       write('ATM SMKN1');
       gotoxy(5,3);
       write('Saldo Anda:Rp.',saldo_sisa:5:2);
       gotoxy(5,5);
       write('Masukkan Permintaan Anda:Rp.');
       readln(ambil_uang);
       status:=ambil_uang<=saldo_sisa;
       gotoxy(5,7);
       saldo_akhir:=saldo_sisa-ambil_uang;
       write('status permintaan anda:');
       writeln(status);
       gotoxy(5,8);
       writeln('Sisa saldo anda:Rp.',saldo_akhir:5:2);
       readln;
       end.

Output :

Herp Anonymous