лабы / лаб1 / lab1_1

Program lab1_1;
var
    a: real = 1.5;
    x: integer;
    s: real;

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

    s := ((exp(cos(x))+a)/(sqrt(abs(x))))+((sin(x))/(a+exp(x)));

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