Задачка не сложная:
Вычислить значение функции f(a,b ), нужно решить с помощью подпрограмм.

Код
uses crt;

function ONE(x,y:real):real;
var
  k:real;
begin
  k:=sqr(x)+x*y+sqr(y);
  ONE:=sqrt(k);
end;

function TWO(x:real):real;
begin
  TWO:=x+x*x+x*x*x+x*x*x*x;
end;

function THREE(x,y:real):real;
begin
  THREE:=x+y;
end;

var
  a,b,x,y,f,f1,f2,f3,f4:real;
begin
  clrscr;
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
  a:=x;
  b:=y;
  f1:=THREE(x,y)+ONE(x,y);
  f2:=TWO(x);
  x:=-a/b;
  f3:=TWO(x);
  x:=a/b;
  y:=-b/a;
  f4:=THREE(x,y)+ONE(x,y);
  f:=f1/f3+f4/f2;
  write(f:0:3);
  readln;
end.

Как сделать программу проще, чтоб не надо было вводить все эти f1, f2...