А6.в результате выполнения алгоритма а: =25; b: =100; a: =a-b/2; если a> b то c: =a+b иначе с: =b-a переменная с примет значения: а) 75, б)125, в) -25, г)100.

Var     a,b: integer; begin write('введите два целых числа: '); readln(a,b); if b < 0 then     begin     writeln(a,b,' = ',a+b);     writeln(a,'-(',b,') = ',a,'+',-b,' = ',a-b);     writeln(a,'*(',b,') = ',a*b);     writeln(a,': (',b,') = ',a/b);     end else     begin     writeln(a,'+',b,' = ',a+b);     writeln(a,'-',b,' = ',a-b);     writeln(a,'*',b,' = ',a*b);     writeln(a,': ',b,' = ',a/b);     end end. примеры работы программы: введите два целых числа: 9 -3 9-3 = 6 ) = 9+3 = 12 9*(-3) = -27 9: (-3) = -3 введите два целых числа: 11 11 11+11 = 22 11-11 = 0 11*11 = 121 11: 11 = 1

1. если это паскаль, то каждый оператор должен оканчиваться точкой с запятой. тут ни один так не оканчивается.2. прочие ошибки.a. в=а - должен быть знак присваивания, т.е. b: =a; b. s+2=4.25 - должен быть знак присваивания : = вместо =кроме этого, в левой части оператора присваивания должно быть имя, а не выражение.c. r=a : b-1.78 - должен быть знак присваивания : = вместо =кроме этого, знак ": " не может встречаться в арифметическом выражении.d. if a then b: =0 - верен, если a имеет тип booleane. a: =d: =c - кратное присваивание недопустимоf. if a=0 then b: =0 - верен, если а имеет числовой тип.