Что будет напечатано по выполнении следующей инструкции на языке Pascal:

x, y = map(float, input().split())

# f - формула

f1 = f2 = f3 = f4 = False

F1 = (x-4)*(x-4) + (y-4)*(y-4)

F2 = x*x + (y-3)*(y-3)

F3 = (x-3)*(x-3)+y*y

if (x * x + y * y <= 25) and (x * x + y * y >= 9):

f1 = True

if ((x * x + y * y <= 25) and (y > x + 5)) or ((x * x + y * y <= 25) and (y < x - 5)) \

or ((x * x + y * y <= 25) and ((x > 0 and y > 0) or (x < 0 and y < 0))):

f2 = True

if F1 == 9 or F2 == 9 or F3 == 9 or ((F1 <= 9 and F2 > 9 and F3 > 9) or (F2 <= 9 and F1 > 9 and F3 > 9) or (F3 <= 9 and F1 > 9 and F2 > 9)):

f3 = True

if (x * x + (y - 3) * (y - 3) <= 16) and (y <= 2 or y >= 5):

f4 = True

print("1:", f1)

print("2:", f2)

print("3:", f3)

print("4:", f4)

Var a: array[1..10] of integer;
    b: array[1..10] of real;
    i,n: integer;
    s: real;
begin
  s:=0; n:=0;
  write('массив a:  ');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if a[i]<0 then 
    begin
      s:=s+a[i];
      n:=n+1;
    end;  
    write(a[i],' ');
  end;
  s:=s/n; 
  writeln;
  writeln('среднее арифметическое отрицательных: ',s);
  writeln('количество отрицательных: ',n);
  write('массив b:  ');
  for i:=1 to 10 do
  begin
    if a[i]<0 then b[i]:=s
    else b[i]:=a[i];
    write(b[i]:7:3);
  end;
end.

массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000