Написать программу (Процедуру), выводящую квадраты чисел от a до b (a, b вводятся с клавиатуры) ;

И всё-таки, мне кажется, что надо вывести именно полные квадраты чисел в указанном диапазоне, иначе формулировка была бы типа: "Возведите в квадрат все числа в указанном диапазоне". Код на паскале:

var a, b, i, j : integer;

begin

readln (a, b) ;

for i : = a to b do

begin

j : = round (sqrt (i)) ;

if j*j = i then writeln (i) ;

end;

end.