лабы / лаб1 / lab1_2

Program lab1_2;
var
    a: real = 1.8;
    b: real = -0.5;
    x: integer;
    y: real;

begin
    Write('Введите x: '); Read(x);

    y := (((a*x)+(b*x*x))/(sqrt(abs(x+1))))+(a/x);

    WriteLn('Результаты:');
    WriteLn('a: ', a:1:2);
    WriteLn('b: ', b:1:2);
    WriteLn('x: ', x);
    WriteLn('y: ', y:1:2);
end.