var a, b, x, y: Real;
begin
// Читаем значения
writeln('Input x:');
readln(x);
writeln('Input a:');
readln(a);
writeln('Input b:');
readln(b);
// Считаем значение функции
y := (4*x+a)/b;
// Выводим с точностью 3 знака после запятой
writeln(y:0:3);
end.
Объяснение:
