1)

var a,b:integer;

begin

 writeln('Введите два числа:');

 readln(a,b);

 if b = 0 then

   writeln('ДЕЛИТЬ НА НОЛЬ НЕЛЬЗЯ')

 else

   writeln('Результат =',' ',a/b)

end.

2)

var a,b,c,s:real;

begin

 writeln('Какая температура?');

 readln(a,b,c);

 s:=0;

 if (s>a) or (s>b) or (s>c) then

   begin;

   writeln('Лёд тает');

   end

 else

  begin;

  writeln('Лёд не тает');

  end;

end.