лабы / лаб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.