Помогите спасите даю 15 бал a := 100; b := 20; x := b; if a

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 нет</p>

20<100 да</p>

x=20-100=-80