program Dz1;
uses crt;
var i: integer;
begin
	for i := 0 to 50 do
		Writeln(i * i);

	
	readkey();
end.