помогите решить 6- е задание. программа паскаль абс если не сложно то и несколько вопросов вперед. основное 6-й вопрос. все что до 6-го вопроса было уже сделано

var x,y: real;    i,s,k: integer;begin// номер 6  write('x = ');  readln(x);  if x>=3.5 then y:=4*sqr(x)+2*x-19  else y:=(2*x)/(4*x-1);  writeln('y = ',y);// номер 10  writeln('задание 10');  for i:=10 to 99 do  begin    s:=(i mod 10)+(i div 10);    if s+sqr(s)=i then write(i:4);  end;  end.x = 3.0y = 0.545454545454545задание 10  12  42  90