Задачки в паскале

[ТагирПанферов]

Здравствуйте уважаемые пользователи,очень прошу у вас помощи в написании программ вот к этим задач,я не понял как их сделать,очень прошу вещей помощи(

1.Вычислите массу земли и так же ее плотность во склько раз плотность земли больше чем плотность воды. Значение плотности земли было уточнено,найдите абсолюбтную и относительную погрешность данного вычисления

2. Составить програму которая дает справку про название столицы и количества населения из списка (италия,греция,турция,египет)

3.Заданы координаты вершины треугольника на плоскости,вычеслить длины его сторон

[ТагирПанферов]

Желательно лучше с самой первой!!!

[ZX Spectrum-128]

3-я

Var
  x1,y1,x2,y2,x3,y3: Real;

BEGIN
  Writeln('Введите координаты 1 вершины (A): ');
  Readln(x1,y1);
  Writeln('Введите координаты 2 вершины (B): ');
  Readln(x2,y2);
  Writeln('Введите координаты 3 вершины (C): ');
  Readln(x3,y3);
  Writeln('сторона (AB) ', Sqrt(Sqr(x1-x2)+Sqr(y1-y2)));
  Writeln('сторона (BC) ', Sqrt(Sqr(x2-x3)+Sqr(y2-y3)));
  Writeln('сторона (CA) ', Sqrt(Sqr(x3-x1)+Sqr(y3-y1)));
end.