НАПИШИТЕ ПРЕЗЕНТАЦИЮ (БЕЗ ФОТОГРАФИЙ ) ЧЕМ Я УВЛЕКАЮСЬ (МУЗЫКОЙ , ФОРТЕПИАННО)

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

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

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

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

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

type
  Point=(real,real);

procedure GetPoint(var Q:Point);
begin
  var a,b:real;
  Write('Введите координаты точки: '); Read(a,b);
  Q:=(a,b)
end;

function Distance(a:Point):=Sqrt(Sqr(a[0])+Sqr(a[1]));

begin
  var a,b:(real,real);
  GetPoint(a);
  GetPoint(b);
  var d1:=Distance(a);
  var d2:=Distance(b);
  if d1<d2 then Writeln('Первая точка ближе')
  else
    if d1>d2 then Writeln('Вторая точка ближе')
    else Writeln('Точки равноудалены')
end.

Пример
Введите координаты точки: 13.7 -11.25
Введите координаты точки: 18 12.4
Первая точка ближе