Определить наибольшее значения целого числа Х, при котором истинно высказывание (90<Х*Х) =(Х<(Х-1)) ​

Население Тринидада и Тобаго весьма разнообразно по своему составу, что отражает историю развития страны. По оценкам на июль 2008 года численность населения государства составляла 1 231 323 человек.

Рост численности населения Тринидада и Тобаго во второй половине XX века

Первоначально острова были заселены индейцами. После начала колонизации индейцы были постепенно истреблены и ассимилированы европейскими поселенцами.

В течение трёх веков испанского владычества над Тринидадом остров заселялся очень медленно. В 1783 году население Тринидада составляло лишь около 2,8 тысяч человек, из них всего 126 европейцев. Именно в этот год Испания объявила выгодные условия для приобретения земли на острове для католиков. Это привело к тому, что за последующие 14 лет в колонию с других островов Вест-Индии переселилось большое количество французских плантаторов с рабами. Когда в 1797 году колония попала под власть британцев, население составляло уже около 20 000 человек (из них 2 000 европейцев). С 1830-х годов после отмены рабства на британских Карибских островах на Тринидад попадает большое количество рабочих из Индии.

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.