Получить таблицу значений функции U, при изменении "x" от 0 до 4 с шагом 2 и при изменении "y" от -5 до 3 с шагом 2

var k,n,x,y,z:integer;
    f,u,s,s1:real;
begin
s:=0;
f:=1;
for k:=1 to 10 do
 begin
  f:=f*k;
  s1:=0;
  for n:=1 to k do
  s1:=s1+sin(k*n)/f;
  s:=s+s1;
 end;
writeln('s=',s:0:3);
x:=0;
while x<=4 do
 begin
  y:=-5;
  while y<=3 do
   begin
    z:=x*y;
    if s<0 then u:=cos(z)
    else if s<=0.5 then u:=sin(z)
    else u:=sin(z)/cos(z);
    writeln('x=',x:2,' y=',y:2,' u=',u:6:3);
    y:=y+2;
   end;
  x:=x+2;
end;
end.

function a(x,y:Integer):Real;begin Result:=cos(x*y);end;
function b(x,y:Integer):Real;begin Result:=sin(x*y)/cos(x*y);end;
function c(x,y:Integer):Real;begin Result:=sin(x*y);end;
var n,k,x,y:Integer;s,su:real;u:function(x,y:Integer):Real;
begin
  s:=0;
  for k:=1 to 10 do
    begin
      su:=0;
      for n:=1 to k do su:=su+sin(k*n);
      for n:=2 to k do su:=su/n;
      s:=s+su;
    end;
  WriteLn(s);
  if s<0 then u:=a
  else if s>0.5 then u:=b
  else u:=c;
  x:=0;
  repeat
    y:=-5;
    repeat
      WriteLn('u(',x,',',y,') = ',u(x,y));
      inc(y,2);
    until y>3;
    inc(x,2);
  until x>4;
end.