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

Var x:integer;
begin;
for x:=2 to 15 do
writeln('y=',x*2+1,' for x=',x);
end.

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