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