a)
var
a,b,c,x,y,z: real;
begin
writeln('Введите значения переменных a, b, c, x, y, z:');
readln(a,b,c,x,y,z);
writeln('Результат выражения a+bx+cyz равен: ', a+bx+cy*z);
end.
б)
var
a,b,c,d,x: real;
begin
writeln('Введите значения переменных a, b, c, d, x:');
readln(a,b,c,d,x);
writeln('Результат выражения [(ax-b)x+c]x-d равен: ', ((ax-b)x+c)*x-d);
end.
в)
var
a,b,c: real;
begin
writeln('Введите значения переменных a, b, c:');
readln(a,b,c);
writeln('Результат выражения a+b/c + c/ab равен: ', a+b/c+c/(a*b));
end.
г)
var
x,y,a1,a2: real;
begin
writeln('Введите значения переменных x, y, a1, a2:');
readln(x,y,a1,a2);
writeln('Результат выражения x+y/a1 a2/x-y равен: ', x+y/a1a2/(x-y));
end.