PROGRAM PERTAM ;
USES WINCRT ;
BEGIN
WRITELN('==================') ;
WRITELN(' BIODATA ') ;
WRITELN('==================') ;
WRITELN(' NAMA : SIAPA SAJA ') ;
WRITELN(' JENIS KELAMIN : PEREMPUAN ') ;
WRITELN(' AGAMA : ISLAM ') ;
WRITELN(' PRODI : MI ') ;
WRITELN(' KELAS : A ') ;
WRITELN('==================') ;
END.
PROGRAM BILPOSNEG ;
USES WINCRT ;
VAR
BIL : INTEGER ;
BEGIN
CLRSCR ;
WRITELN('MASUKKAN BILANGAN :');READLN(BIL);
IF
BIL > 0
THEN
WRITELN('BILANGAN POSITIF')
ELSE
WRITELN('BILANGAN NEGATIF');
END.