var a,b,i,k:integer;beginreadln (a,b);for i:=a to b doif (i mod 2=0) thenbegink:=sqr(i);writeln (i);end;end.
var
a,b,i,k:integer;
begin
readln (a,b);
for i:=a to b do
if (i mod 2=0) then
begin
k:=sqr(i);
writeln (i);
end;
end.