Составить программу, которая запрашивает ввод трех значений температуры и проаеряет, есть ли среди них температура таяния льда?

Лед начинает таять при любой положительной температуре (если быть более точным, то при температуре > = 0). Просто проверим есть ли среди введенных значений температуры полажительные или равные нулю.

program IceMeltingTemperature;

var

t1 : integer;

t2 : integer;

t3 : integer;

begin

writeln ('Введите Три значения температуры');

readln (t1);

readln (t2);

readln (t3);

if (t1 > = 0) then writeln ('Первое значение подходит для таяния льда');

if (t2 > = 0) then writeln ('Второе значение подходит для таяния льда');

if (t3 > = 0) then writeln ('Третье значение подходит для таяния льда');

end.