Program untuk menentukan bentuk padat, cair, atau gas benda : uses wincrt; var a: integer; ket: string; begin write ('suhu  : '); readln (a); if a <= 0 then ket :='padat' else if (a > 0) and (a < 100) then ket :='cair' else if a >=100 then ket :='gas'; writeln('Air pada suhu tersebut berbentuk','…