m0nclous

Verified answer

Задача 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<b) and (a<c) then min:=a;   
        if (b<a) and (b<c) then min:=b;   
        if (c<b) and (c<a) then min:=c;    
if 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.