Like this:

PROGRAM SOAL1;

USES CRT;

VAR BILANGAN: INTEGER;

KETERANGAN: STRING;

BEGIN

CLRSCR;

WRITE('MASUKAN BILANGAN = ');

READLN(BILANGAN);

IF

(BILANGAN<0) THEN

KETERANGAN:= 'BILANANGAN NEGATIF'

ELSE

IF(BILANGAN>0) THEN KETERANGAN:='BILANGAN POSITIF'

ELSE KETERANGAN:='BILANGAN NOL';

WRITELN('KETERANGAN    = ',KETERANGAN);

READLN;

END.


PROGRAM SOAL2;

USES CRT;

VAR BILANGAN:INTEGER;

KETERANGAN:STRING;

BEGIN

CLRSCR;

WRITE('MASUKAN BILANGAN  = ');

READLN(BILANGAN);

IF(BILANGAN MOD 2=0) THEN 

KETERANGAN:='BILANGAN GENAP'
 ELSE
KETERANGAN:='BILANGAN GANJIL';

WRITELN('KETERANGAN = ',BILANGAN,' ADALAH ',KETERANGAN);

READLN;
END.

PROGRAM SOAL3;

USES CRT;

VAR NAMA,JENISKELAMIN:STRING;

BERATBADAN,JUMLAHKALORI:INTEGER;

BEGIN

CLRSCR;

WRITE('MASUKAN NAMA                  : ');

READLN(NAMA);

WRITE('JENIS KELAMIN [PRIA]/[WANITA] : ');

READLN(JENISKELAMIN);

WRITE('MASUKAN BERATBADAN            : ');

READLN(BERATBADAN);

IF(JENISKELAMIN='PRIA') THEN

JUMLAHKALORI:= 9*BERATBADAN

ELSE

JUMLAHKALORI:= 8*BERATBADAN;

WRITELN('JUMLAHKALORI               :',JUMLAHKALORI);

READLN;

END.

PROGRAM SOAL5;

USES CRT;

VAR NILAI:INTEGER;

IP:CHAR;

BEGIN

CLRSCR;

WRITE('NILAI : ');

READLN(NILAI);

IF

(NILAI>=90) THEN

IP:='A' ELSE

IF

(NILAI>=75) THEN

IP:='B' ELSE

IF

(NILAI>=65) THEN

IP:='C' ELSE

IF

(NILAI>=60) THEN

IP:='D' ELSE

IP:='E';

WRITE('IP= ',IP);

READLN;

END.

 

 

PROGRAM SOAL6;

USES CRT;

VAR A,B,C,D,X1,X2:REAL;

BEGIN

WRITE('MASUKAN A : ');

READLN(A);

WRITE('MASUKAN B : ');

READLN(B);

WRITE('MASUKAN C : ');

READLN(C);

D:=B*B-4*A*C;

WRITELN('NILAI D :',D:3:0);

WRITELN;

IF (D<0) THEN

BEGIN

WRITELN('AKAR - AKAR BILANGAN KOMPLEKS');

X1:=-B/(2*A);

D:=SQRT(-D)/(2*A);

WRITELN('X1=',X1:3:0,' + ',D:3:0,'i');

WRITELN('X2=',X1:3:0,' + ',D:3:0,'i');

END

ELSE IF (D=0) THEN

BEGIN

WRITELN('AKAR - AKARNYA KEMBAR ');

X1:=(-B/(2*A));

WRITELN('X1=X2=',X1:3:0);

END

ELSE

BEGIN

WRITELN('AKAR - AKARNYA BILANGAN REAL ');

X1:=(-B+SQRT(D))/(2*A);

WRITELN('X1=',X1:5:2);

X2:=( -B-SQRT(D))/(2*A);

WRITELN('X2= ',X2:5:2);

END;

READLN;

END.

PROGRAM SOAL7;

USES CRT;

VAR BARANG: INTEGER;

TOTAL, HARGAPERBARANG: LONGINT;

BEGIN

CLRSCR;

WRITE('BERAPA JUMLAH BARANG YANG DIBELI = ');

READLN(BARANG);

IF

(BARANG<100) THEN

HARGAPERBARANG:=10000 ELSE

IF

(BARANG<150) THEN

HARGAPERBARANG:=9500 ELSE

HARGAPERBARANG:=9000 ;

TOTAL:=HARGAPERBARANG*BARANG;

WRITE('TOTAL YANG HARUS DIBAYAR : ',TOTAL);

READLN;

END.

PROGRAM SOAL8;

USES CRT;

VAR NILAIKURIKULER,MATEMATIKA,FISIKA,BIOLOGI,EKONOMI,KIMIA:REAL;

NILAIEKSTRAKULIKULER,PRAMUKA,PMR,RATARATA:REAL;

PREDIKAT:STRING;

BEGIN

CLRSCR;

WRITELN('MEMASUKKAN NILAI KURIKULER');

WRITE('MASUKAN NILAI MATEMATIKA : ');

READLN(MATEMATIKA);

WRITE('MASUKAN NILAI FISIKA     : ');

READLN(FISIKA);

WRITE('MASUKAN NILAI BIOLOGI    : ');

READLN(BIOLOGI);

WRITE('MASUKAN NILAI EKONOMI    : ');

READLN(EKONOMI);

WRITE('MASUKAN NILAI KIMIA      : ');

READLN(KIMIA);

NILAIKURIKULER:=(MATEMATIKA+FISIKA+BIOLOGI+EKONOMI+KIMIA)/5;

WRITELN('NILAI RATA-RATA KURIKULER        : ',NILAIKURIKULER:4:0);

WRITELN;

WRITELN('MEMASUKKAN NILAI EKSTRA KURIKULER');

WRITE('MASUKAN NILAI PRAMUKA    : ');

READLN(PRAMUKA);

WRITE('MASUKAN NILAI PMR        : ');

READLN(PMR);

NILAIEKSTRAKULIKULER:=(PRAMUKA+PMR)/2;

WRITE('NILAI RATA-RATA EKSTRA KURIKULER   : ',NILAIEKSTRAKULIKULER:4:0);

WRITELN;

RATARATA:=(60/100*NILAIKURIKULER)+(NILAIEKSTRAKULIKULER*40/100);

IF

(RATARATA>=80) THEN

PREDIKAT:= 'SANGAT BAGUS' ELSE

IF

(RATARATA>=60) THEN

PREDIKAT:= 'BAGUS' ELSE

IF

(RATARATA>=40) THEN

PREDIKAT:= 'CUKUP BAGUS' ELSE

IF

(RATARATA>=20) THEN

PREDIKAT:= 'KURANG' ELSE

PREDIKAT:= 'SANGAT KURANG';

WRITELN('NILAI KURIKULER        = ',NILAIKURIKULER:5:0);

WRITELN('NILAI EKSTRA KURIKULER = ',NILAIEKSTRAKULIKULER:5:0);

WRITELN('INDEKS PRESTASI        = ',RATARATA:5:0);

WRITELN('PREDIKAT               = ',PREDIKAT);

READLN;

END.