числительные методы

[Ману]

помогите пожалуйста, как можно скорее(((
https://vk.com/teshaev94?z=photo2257...47680_00%2Frev

[ZX Spectrum-128]

Числительные методы

А что, и такие бывают?

3.

var
  i:integer;
  y:real;
begin
  y:=sqrt(99);
  i:=96;
  while i>=3 do
    begin
      y:=sqrt(y+sqrt(i));
      dec(i,3);
    end;
  writeln(y);
end.