program CheckTemperatures;

var
temp1, temp2, temp3: Integer;

begin
// Requesting input of three temperature values
writeln('Enter the first temperature value: ');
readln(temp1);

writeln('Enter the second temperature value: ');
readln(temp2);

writeln('Enter the third temperature value: ');
readln(temp3);

// Checking if any of the temperatures is above 0 (melting point of ice)
if (temp1 > 0) or (temp2 > 0) or (temp3 > 0) then
writeln('At least one of the temperatures is above the melting point of ice.')
else
writeln('None of the temperatures is above the melting point of ice.');

end.