var a,b:integer;
begin
write('Ââåäèòå äèàïîçîí ÷èñåë: ');
readln(a,b);
for a:=a to b do 
write(sqr(a),' ');
a:=a+1;
end.