Задача 1 
Var a,b,c,max,min:real;
Begin
Writeln('Введите 3числа , по модулю не больше 100');
Readln (a,b,c); 
  if (a>b) and (a>c) then max:=a; 
  if (b>c) and (b>a) then max:=b; 
  if (c>a) and (c>b) then max:=c;   
        if (a        if (b        if (cif min<0 then writeln('Ответ: ',min+max); 
if min>0 then writeln('Ответ: ',min*max);
End. 

Задача 2 
Var a,b,c,a1,b1,c1:real;
Begin
Writeln('Введите 3числа , по модулю не больше 100');
Readln (a,b,c);
if a<0 then a1:=a;
if b<0 then b1:=b;
if c<0 then c1:=c;
  Writeln('Ответ: ',a1+b1+c1);
End.