program no1;
var
  i, c: Integer;
  A: array [0..9] of Integer;
begin
  c := 0;
  for i := 0 to 9 do
  begin
    Read(A[i]);
    if A[i]*A[i] > 25 then
      c := c + 1;
  end;
  Writeln(c);
  Readln;
end.

// !!!!!!!!!!!!!!!!! В другом файле
program no2;
var
  i, N: Integer;
  A, A1: array of Integer;
begin
  c := 0;
  Readln(N);
  SetLength(A, N);
  SetLength(A1, N);
  for i := 0 to 9 do
  begin
    Read(A[i]);
    A1[i] := A[i] div 3;
  end;
  for i := 0 to 9 do
    Write(A[i], ' ');
  Writeln;
  for i := 0 to 9 do
    Write(A1[i], ' ');
  Writeln;
  Readln;
end.

// !!!!!!!!!!!!!!!!! В другом файле
program no3;
var
  i, N: Integer;
  Ordered: Boolean;
  A: array of Integer;
begin
  Ordered := True;
  Readln(N);
  SetLength(A, N);
  for i := 0 to N - 1 do
  begin
    Read(A[i]);
    if i > 1 and A[i] > A[i - 1] then
      Ordered := False;
  end;
  for i := 0 to N - 1 do
    Write(A[i], ' ');
  Writeln;
  if Ordered then
  begin
    A[0] := A[0] * A[0];
    A[N - 1] := A[N - 1] * A[N - 1];
  end else
    for i := 1 to N - 1 do
      if A[i] > A[i - 1] then
      begin
        A[i] := A[i] + A[i - 1];
        A[i - 1] := A[i] - A[i - 1];
        A[i] := A[i] - A[i - 1];
        break;
      end;
end.


// Проверить сейчас я не в состоянии, так что, прости если есть ошибки