Антон uses crt; var i,r:integer; begin ClrScr; r:=1; for i:=1 to 100 writeln(r*r); r:=r+2; end; end. Если я правильно понял условие.