для Free Pascal
Объяснение:
var
a, b, c, d, x, y : Double;
begin
// первая часть
Readln(a);
Readln(b);
Readln(c);
Readln(d);
a := a*b; // ТУТ сразу пересчитаем произведение a*b
d := c*d; // и c*d и чтоб не заводить новых переменных переприсвоим их уже существующим
x := a/d - (a-c)/d;
writeln(x);
//вторя часть задания. считаем что Х у нас уже есть
y := x-Sqr(x)*x/3 + exp(5*log(x))/5;
writeln(y);
end;
