Описать функцию по графику.

var i:integer; y:real;
begin y:=8; 
       for i:=7 downto 0 do
       y:=i+cos(y);
       write('y=',y); readln;
end.

for i:=1 to n do
begin
readln(a[i]);
readln(b[i]);
if a[i]>b[i] then
c[i]:=a[i]
else
c[i]:=b[i];
end;

var x,r1,r2,y:real; 
write('r1='); readln(r1);
write('r2='); readln(r2);
write('x='); readln(x);
if ((x<-2*r2) or (x>2*r1)) then writeln('Input Error') else 
begin
if x>0 then y:=sqrt(sqr(r1)-sqr(x-1)) else y:=-sqrt(sqr(r2)-sqr(x-1)); 
writeln('y:=',y); 
end;
readln;
end;

uses 
  math;
 
var x,s,sn,e:real; i:integer;
begin
write('Input x=');
readln(x);
write('Input e=');
readln(e);
s:=0;
i:=0;
repeat inc(i);
       sn:=power(x,1+i)*power(-1,i-1)/x;
       s:=s+sn;
until abs(sn)<e;
writeln('Input S=',s);
readln;
end.

t:=1.5; x:=1.5;
for i:=1 to n do
begin
x:=x*t;
sum:=sum+cos(x);
end;