program Varant;

var
S, n, X: real;

function f (x: real): real;
begin
f:= sqr(ln(x) / x);
end;


begin

X:= 1;
S:= 0;
n:= (2.5 - 1) / 50;

for var i:= 1 to 50 do
  begin
  S:= S + f(X) * n;
  X:= X + n;
  end;
  
Writeln('Площадь подынтегральной функции на заданном интервале приблизительно равна ', S);
end.