Составьте программу которая запрашивает ввод трех значений температуры и проверяет есть ли среди них температура таяния льда ( больше 0) Паскаль .

program fofgogjoj; var a,b,c:integer; begin Writeln('Введите три значения температуры'); Readln(a,b,c); if a>0 then Writeln('1ое значение - температура таяния'); if b>0 then Writeln('2ое значение - температура таяния'); if c>0 then Writeln('3е значение - температура таяния'); if (a<=0) and (b<=0) and (c<=0) then Writeln('Температуры таяния не обнаружено'); end.