Ребята помогите пожалуйста

Задача 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); <br>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;<br>if b<0 then b1:=b;<br>if c<0 then c1:=c;<br>  Writeln('Ответ: ',a1+b1+c1);
End.