Не используя стандартные функции (за исключением abs), вычислить сумму следующего ряда с заданной точностью Е > 0 (Е, х, а вводятся с клавиатуры)

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

пщояк 17 27 16 33 17

нщёп 15 27 7 17