1)найдите ошибки в программе и запишите правильный вариант var a,b,i,x: real; begin read(x); a: =x; for i: =1 downto b do begin i: =i+3; a: = a/2; x: =x+a; end; write(x); end. 2) рассмотрите фрагмент программы и ответьте что будет выведено на экран begin n: =5; k: =2; for a: =1 to n do begin x: =x*3; writeln(x); end; write(n); end; begin n: =4; a: =n; for x: =1 to n do a: =a-3; writeln(a); end;