uses wincrt;
var
uang:longint;
begin
write('Banyaknya uang:Rp ');raedln(uang);
if uang>100000 then
writeln('Tidak ambil uang di ATM')
else
writeln('Ambil uang di ATM');
end.
uses wincrt;
var
uang:longint;
begin
write('Banyaknya uang:Rp ');raedln(uang);
if uang>100000 then
writeln('Tidak ambil uang di ATM')
else
writeln('Ambil uang di ATM');
end.
0 komentar:
Posting Komentar