Алгол-68 (наши дни)

{Задача 2}
Var
x, k ,s, EPS: real;

Begin
    Write('x = '); read(x);
    Write('EPS = '); read(EPS);
    if EPS < 0 then begin
        Write('Неверно задано е');
        halt;
    end;
    k := 1; s := 0;
    while (x/(power(k,3) * sqrt(x) + 3)) > EPS do begin
        s := s + (x/(power(k,3) * sqrt(x) + 3));
        k := k + 1;
    end;
    WriteLn(s : 0 : 4);
End.

{Задача 3}
Var
x, i, EPS: real;
a, a1: real;
Begin
    Write('x = '); read(x);
    Write('EPS = '); read(EPS);
    if EPS < 0 then begin
        Write('Неверно задано е');
        halt;
    end;
    a := x;
    a1 := 0;
    i := 2;
    while abs(a - a1) > EPS do begin
    a1 := a;
        a := 2 + (1/(power(e, i)))* power(cos(a1 - 2*x),2);
        i += 1;
    end;
    WriteLn(a : 0 : 4);
End.