Задание по паскалю

[Akbarmym]

Очень нужно http://otvet.mail.ru/question/66064377/

На обеих картинках 4-ое задание

[kangreon]

Вот первая задача.
Но я не совсем уверен в правильности.

program Project1;

{$APPTYPE CONSOLE}

var
  i: Integer;
  x, n, t: Extended;
begin
  ReadLn(x);
  n := Sqr(x);
  for i := 8 downto 1 do
  begin
    n := (Exp(i * Ln(2)) / n) + Sqr(x);
  end;

  t := x / n;
  WriteLn(t:0:3);

  ReadLn;
end.

[Akbarmym]

Неизвестное имя 'Extended' пишет

[Akbarmym]

все исправил) большое спасибо!