3) Верного варианта ответа нет. Возможно, что либо 4 либо 1, т. к. y=20 после выполнения программы.4) Program Primer;uses crt;var x, y: integer;beginclrscr;y:=0;for x:=1 to 9 do begin y:=y*2+3; end;write (y);readkey;end.5) Program P5;uses crt;var b, c: real;beginclrscr;c:=0;b:=3;repeatc:=c+b;b:=b+2;until b>10;write (c);readkey;end.