Program Suhu "Pascal"

program suhu;
uses crt;
var
t : real;
begin
clrscr;
write('masukan suhu : '); readln(t);
if t <= 0 then write ('padat') else if (t > 0) and (t < 100) then write ('cair') else if t >= 100 then write('gas');
readkey;
end.