Create a program that asks for the entry of three temperature values and checks if there is an ice melting

Create a program that asks for the entry of three temperature values and checks if there is an ice melting temperature (0) among them. Pascal program.

program zz1;
var a, b, c, d: integer; // set variables of integer type
begin
write (‘enter first temperature’); // enter three given numbers from the keyboard
read (a);
write (‘enter the second temperature’);
read (b);
write (‘enter third temperature’);
read (c);

if a> 0 then d: = 1; // check the condition
if b> 0 then d: = 1;
if c> 0 then d: = 1;
if d = 1
then write (‘among the entered numbers, the temperature of ice melting is’)
else write (‘there is no ice melting temperature among the entered numbers’);
END.