program prog;
var a,b:integer;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
while a <= b do
write(sqr(a), ' ');
a:=a+1
end
end.
