Прочитай строфу, обращая внимание на правописание слов и постановку запятых. Запиши её по памяти. Я помню,

ответ к заданию по русскому языку
 

var
  n, k, e: integer;
  x, y, y1, xmin, xmax, d, p, t: real;
 
begin
  write('Введите xmin и xmax: ');//диапазон иксов
  readln(xmin, xmax);
  write('Введите Е и N: ');//Е-знак после запятой(обратный эпсилон), N-колличество точек
  readln(e, n);
  p := power(10, -e);//точность вычислений
  writeln(p);
  d := abs(xmax - xmin) / (n - 1);//интервал меду точками
  writeln('Шаг X: ', d);
  
  x := xmin;
  writeln('_______________________________________________');
  writeln('X  |Y ', ' ' * e, '|Колво членов ряда|y1', ' ' * e, '|');
  writeln('_______________________________________________');
  for var i := 1 to n do //для каждой точки Х вычисляем значения,
  begin
    y1 := exp(-(x * x));//встроенная в паскаль функция экспоненты
    k := 0; {нулевой индекс}
    y := 1; {начальное значение итоговой суммы}
    t := 1;{знчение члена ряда при k=0}
    while abs(t) >= (p) do {пока модуль очердного члена ряда не меньше точности}  //нахождение значения функции при помощи степенного ряда
    begin
      k := k + 1;{следующий член}
      t := -t * x * x / k;{домножаем на х^2(возводим в степень) и делим на индекс(обратный факториал)}
      y := y + t;{суммируем}
    end;
    writeln();
    
    writeln(x:3, ' ', y:e + 2:e, ' ', k + 1:2, '                ', y1:e + 2:e);//выводим значение х, найденной функции, количества слагаемых в ряду Тейлора(t) и значение функции встроенной в паскаль для проверки
    x := x + d;//следующая точка
  end;
end.

uses graphaBC;
var x,y,y1,d,r1,r2:integer;
    u:real;
    p:array of point;
begin
d:=15; //ширна полосок
setwindowsize(52*d+80,26*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40;  //левый верхний угол
y:=40;
setpencolor(clWhite);//белый цвет линий
setbrushcolor(clRed);//красная кисть
rectangle(x,y,x+52*d,y+26*d);//красное полотно
//белые полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for var i:=1 to 6 do
 begin
  rectangle(x,y1,x+52*d,y1+2*d);
  y1:=y1+4*d;
 end;
//темно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+26*d,y+16*d);
//месяц
setpencolor(clYellow);
setbrushcolor(clYellow);
ellipse(x+6*d,y+2*d,x+17*d,y+14*d);
setbrushcolor(clNavy);
setpencolor(clNavy);
ellipse(x+8*d,y+3*d,x+18*d,y+13*d);
x:=x+18*d;
y:=y+8*d;
//звезда
setbrushcolor(clYellow);
r1:=2*d;
r2:=4*d;
u:=pi/2;
setlength(p,29);
for var i:=0 to 27 do
 begin
  if not odd(i) then
   begin
    p[i].x:=x+round(r2*cos(u));
    p[i].y:=y-round(r2*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end;
  u:=u+pi/14;
 end;
p[28]:=p[0];
polygon(p);
end.