Program Pembagian Laboratorium Berdasarkan No. Absen

Program Lab;

uses wincrt;

var no:real;

begin

write('Masukkan No. Urut antara 1-60: '); read(no);

if no<=30 then writeln('Masuk Lab. Mikrobiologi')

else writeln('Masuk Lab. Kimia Fisika');

end.