Решите функцию на языке Паскаль : y=4x+a/b

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.

Объяснение: