Ответ:

1.

var r,m,y,max:real;

begin

   readln(r);

   readln(m);

   readln(y);

   max:=r;

   if m>max then

       max:=m;

   if y>max then

       max:=y;

 write('Max=',max);

end.

2.

var a,b,x:real;

begin

   readln(a);

   readln(b);    

   if a=0 then

       write('Корней нет')

   else

       if b=0 then

           write('x=0')

       else

           write('x=',-b/a:0:3)  

end.

Объяснение: