Программа

{ Решение системы нелин.уров.
  Y=LnX
  Y=0.2X }
CONST Eps=1e-7;
VAR X,Y:real;
    PredX,PredY:real;
BEGIN
  WriteLn;  { Пропуск строки }
  Write('Введите Y '); ReadLn(Y); { Ввод первого приближения }
  X:=5*Y;
  repeat
    PredX:=X; PredY:=Y;
    Y:=Ln(X);
    X:=5*Y
    ;WriteLn(X,'  ',Y)
  until Abs(PredX-X)+Abs(PredY-Y)<=Eps;
  WriteLn('X=',X,'   Y=',Y)
END.