Условный оператор

[ZHenyocheck]

Товарищи, нужна ваша помощь, тем более для вас это азы)

[newerow1989]

Условия неполные в задаче.

var a,b,c,x1,x2:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   If c>100 then
      x1:=a+b else
   If c<100 then
      x1:=Sqr(a-b)/100 else
      x1:=0;
   If (0<b) and (b<100) then
      x2:=x1*x1 else
   If b<>0 then
      x2:=(x1-a)/b else
      x2:=0;
   Writeln(x1:5:8);
   Writeln(x2:5:8);
   Readln;
end.

[Аватар]

Товарищи, нужна ваша помощь, тем более для вас это азы

Полагаю для ТС это навсегда азами останется ))