Read(T) If T ≤ 0, Then Write (‘Padat’) Else If (T>0) and ( T< 100) Then Write (‘Cair’) Else If T ≥ 100 Then Write (‘Gas atau Uap’) Endif EndIf