Спаскалем 1. написать алгоритм нахождения максимального среди 4 целых чисел. 2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения. 3. написать алгоритм проверки: лежит ли точка с координатами х; у в первой координатной четверти?

Var a,b,c: integer; begin for a : = 1 to 4 do begin readln ( b) ; if b > c then c: =b; end; end. var a, b, c: integer; begin for b: =1 to 3 do begin readln ( a ); if a > 0 then c: = c+1; end; if c =2 then write ('est');   end. var x,y: integer; begin readln(x,y); if (x> 0) and (y> 0) then writeln('est'); end. все писал с телефона

1) чтобы точно вынуть черный, нужно вынуть 6 шаров, т.к. первые 5 могут оказаться белыми

2)аналогично, 4 шара

3)7 шаров

4)5 шаров