Program qwer;

Var

	n,k,i:integer;

Function kvadrat(i:integer) : boolean;
	begin
		if frac(sqrt(i))=0 then 
			kvadrat:=true else
			kvadrat:=false;
	end;


Begin
	write('Введите количество чисел ');
	readln(n);
	write('Введите начальное число ');
	readln(k);
	for i:=k to k+n do
	if kvadrat(i) then 
	begin	
		write(i);
		write(' ');
	end;
	readln;
End.