2-ве задачи (Итерационные циклы)

uses crt;
function F(x:real):real;
begin
F:=2*x*x+exp(x+1);{заданная функция}
end;
var a,b,ih,xi,y:real;
    m,i:integer;
begin
clrscr;
a:=1;{заданные параметры}
b:=3;
m:=20;
ih:=(b-a)/m;{шаг итераций}
xi:=a;{начальное значение}
while xi<=b do{пока не перешли через конечное значение}
  begin
   y:=F(xi);{считаем}
   writeln('xi=',xi:5:2,'   F(x)=',y:8:4);{выводим}
   xi:=xi+ih;{наращиваем}
  end;
readln
end.

uses crt;
function Y(x:real):real;
begin
Y:=(x*cos(pi/4)-x*x)/(1-2*x*cos(pi/4)+x*x);{функция для проверки}
end;
var a,b,ih,xi,si,s:real;
    m,n,i:integer;
begin
clrscr;
a:=0;{границы интервала}
b:=0.8;
write('m=');readln(m);{количество делений отрезка, лучше 10 или 20}
write('n=');readln(n);{количество вычислений суммы, чем больше, тем точнее}
ih:=(b-a)/m;{шаг}
xi:=a;{начало}
while xi<=b do{внешний цикл табуляция, пока не перешли через конец}
  begin
    si:=1;s:=0;{начальные значения при n=0}
    for i:=1 to n do {вложенный цикл подсчета суммы}
      begin
       si:=si*xi;{промежуточное вычисление x^n}
       s:=s+si*cos(i*pi/4);{вычисление суммы}
      end;
   writeln('xi=',xi:5:2,'   S=',s:8:4,'   Y(x)=',Y(xi):8:4);{вывод аргумента, суммы и значения по формуле}
   xi:=xi+ih;{к следующей итерации}
  end;
readln
end.