Используя подпрограмму (корень из n+ n) решить: (корень из 5 +5/2)+(корень из 3+3/2)+(корень из 7+7/2)

Var
 r:real;

 function preob(n:integer):real;
 begin;
  preob:=sqrt(n)+n;
 end;

 begin
 r:=preob(5)/2+preob(3)/2+preob(7)/2;
 writeln(r);
end.