Помогите! Исправте ошибку. Условие было таким y: =√ (1+4+9+…

Помогите! Исправте ошибку. Условие было таким y: =√ (1+4+9+… +36+49) Var x: integer, y: realBEGINx: =1; y: =0; while x <= 7 dobeginy: =y+sqrt (x*x); x: =x+1; end; y: =sqrt (y); writeln (y); END.