есть алгоритм нужно перевести в систему паскаль
вариант 1

прям спас,спс большое

//Pascal//var 1var i:integer;    s:real;begin  readln(s);  for i:=1 to 5 do s:=s+(sqr(s)+i)/i;  writeln(s);end.