Составить алгоритм решения задачи в виде программы

Program x1;
var f,c,z,n,k:integer;
begin
    readln;
    for n:=1 to 15 do
      f:=f*((k-n)+(k-n));
       begin
       for k:=1 to 20 do
       c:=(k*k*k);
       z:=c*f;
       writeln(f,' ',z);
      end;
end.

program ideone;
    var k,n,j,y:integer;
begin
    for k := 1 to 20 do
        for n := 1 to 15 do         
            j := j + sqr(k - n);            
                        y := (k*k*k)*j;
    write(y);
 
end.

Program x1;
var f,c,n,k:integer;
begin
    readln;
    for n:=1 to 15 do
      f:=f*((k-n)+(k-n));
       begin
       for k:=1 to 20 do
       c:=(k*k*k)*f;
       writeln(f,' ',c);
      end;
end.

var k,n,s,y:integer;
begin
y:=0;
for k:=1 to 20 do
 begin
  s:=0;
  for n:=1 to 15 do
  s:=s+sqr(k-n);
  y:=y+k*k*k*s;
 end;
write('Y=',y)
end.