Найти значение функции У=Х2+1 для Х=2,3,4,5;...14,15.

а разве не sqr(x)+1???

Пользователь не указал что это квадрат. Но, на всякий случай, напишу и этот вариант.

var x:integer;begin;for x:=2 to 15 dowriteln('y=',x*2+1,' for x=',x);end.var x:integer;begin;for x:=2 to 15 dowriteln('y=',sqr(x)+1,' for x=',x);end.