Question

помогите спасите даю 15 бал
a := 100;
  b := 20;
  x := b;
  if a<x 
     then x := x-b 
     else if x<a 
            then x := x-a 
            else x := x-b;
  writeln (x);​

Answer 1

Ответ:

-80

Объяснение:

100<20 нет

20<100 да

x=20-100=-80