Program_suhu;
uses crt;
var suhu : integer ;
begin
write ( ‘ suhu tubuh: ‘ ) ; readln (suhu) ;
if suhu < 28 then writeln ( ' suhu rendah ' ) ; else if suhu > 37 then
writeln ( ‘ suhu tinggi ‘ ) ;
else
writeln ( ‘ normal ‘ ) ;
writeln ( ‘ selasai ‘ ) ;
readln ;
end.