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.
Blog ini dibuat untuk memenuhi tugas mata kuliah pemrogaman komputer 1. Semester depan, blog ini akan berubah! !! Tunggu saja... Hohoho..^o^
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.
Tidak ada komentar:
Posting Komentar