Membuat Program Hadiah Belanja Menggunakan Aplikasi Free Pascal

Program Hadiah Belanja

Kode Program Yang Dipakai :

program hadiahBelanja
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then
write('maaf sampeyan dereng beruntung')
else
if x<=99.999 then
write('selamat sampeyan mendapatkan mie goreng')
else
if x<=149.999 then
write('selamat sampeyan mendapatkan gelas cantik')
else
if x<=199.999 then
write('selamat sampeyan mendapatkan piring cantik')
else
if x<=5000.000 then
write('selamat sampeyan mendapatkan payung cantik')
end.

Sekian Postingan Dari Saya

Jika Ada Salah Kata Mohon Dimaklumi