var
z: real;
x,y,N: integer;
begin
Write('N= ');
Readln(N);
for x := 1 to N do
for y := 1 to N do
z := cos(x)+y;
Println('x=', x, '; y=', y, '; z=', z);
end;
end.
