var
    t : text;
    a, b, x, y, h : real;

begin

    assign(t,'D:\input.txt');
    reset(t);
    read(t, a);
    read(t, b);
    read(t, h);
    x:=a;

    while x <= b do begin
        y := (sqr(x)+ln(sqr(x)-4));     # Каждый раз новый y на основе предыдущего x. // Для даунов: предыдущий пропадает.
        x := x + h;
        writeln (x:3:2,' | ',y:3:2);    # Вывод на консоль
    end;
    close(t);                           # Закрыл input.txt // Почему тут, а не после считывания a, b, h?

    assign(t,'D:\output.txt');          # Открыл output.txt на запись
    rewrite(t);
    writeln(t, x:3:2,' | ',y:3:2);      # Записал в файл ПОСЛЕДНИЕ значения х, у из цикла.
    close(t);
end.