Написать программу, которая выводит на экран квадратные корни нечетных чисел от 9 до 25.

var i, a:integer;
begin
clrscr;
for i:=9 to 25 do
begin
if (i mod 2)<>0 then a:=i*i;
end;
write(a, ' ');
end.