Рассмотрите решение задачи Var a,n,k: integer; Begin readln(a); If a>=0 then k:=k+1 Else n:=n+1; Writeln(k); Wtiteln(n); End. Как нужно изменить программу, чтобы вводилось 50 чисел? Рассмотрите решение задачи: Var a,i,n,k: integer; Begin readln(a); for i:=1 to 50 do {цикл меняется от 1 до 50} begin {начало цикла} If a>=0 then k:=k+1 Else n:=n+1; end; {конец цикла} Writeln(k); Wtiteln(n); End. Сформулируйте условие задачи: