uses crt;
type func=function(k:integer):real;
{$F+}
function Sm(m:integer):real;
var i,s:real;
begin
s:=0;
i:=0;
while i<m do
begin
i:=i+1;
s:=s+sqr(2*i*i+i+2);
end;
Sm:=s;
end;
function Sn(n:integer):real;
var i,s:real;
begin
s:=0;
i:=1;
while i<n do
begin
i:=i+1;
s:=s+sqr(i*i+3);
end;
Sn:=s;
end;
{$F-}
function Y(m,n:integer;a:real;F1,F2:func):real;
begin
Y:=(a+F1(m))/(4+F2(n));
end;
var m,n:integer;
a:real;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа, m>0 n>1:');
readln(m,n);
until(m>0)and(n>1);
write('Введите действительное число a=');
readln(a);
write('Значение функциии Y=',Y(m,n,a,Sm,Sn):0:4);
readln
end.
