Pascal - Program Wujud Air

Program Wujud Air menggunakan Bahasa Pascal

program Wujud_Air(SUHU);
{Dibaca suhu air, tampilkan wujud air tersebut dengan ketentuan
 suhu>100 adalah UAP, suhu 0 -100 adalah cair, suhu<0 adalah BEKU}

{DEKLARASI}
var
suhu:real;

(*ALGORITMA*)
begin
writeln('Program Wujud Air ');
write('Masukkan suhu air : ');
readln(suhu);
if (suhu <0) then
   writeln('BEKU')
else
    if (suhu>=0) and (suhu<=100) then
       writeln('CAIR')
    else
        writeln('UAP')
end.


HASIL COMPILE :