Jawaban:

program Bilangan_positif_kelipatan_4;

{I.S. : user memasukan bilangan}

{F.S : menampilkan hasil pembacaan}

uses crt;

var

bil : integer;

keterangan : string;

begin

//memasukan sebuah bilangan

writeln('masukan sebuah bilangan');

writeln('==========================');

write('masukan bilangan : ');readln(bil);

//menampilkann keterangan bilangan

if ((bil>0) and (bil mod 4=0))

then

keterangan:=' adalah bilangan kelipatan 4'

else

keterangan:=' bukan bilangan kelipatan 4';

write(bil,keterangan);