Pascal - Program Tampil Ganjil

Program Tampil Ganjil menggunakan bahasa Pascal

program tampil_ganjil;
{buatlah program membaca sebuah bilangan bulat, jika bilangan itu ganjil
maka tampilkan ke layar.}

{deklarasi}
var x:integer;

{algoritma}
begin
writeln('Program Tampil Ganjil');
write('Masukkan bilangan : ');
readln(x);
if (x mod 2 = 1) then
        writeln(x,' ADALAH BILANGAN GANJIL')
end.


HASIL COMPILE :