{$n+}
uses crt;
function f(x:extended):extended;
begin
   f:=x*x; {funkciya}
end;
var x,h,xStart,xStop,xmin,xmax:extended;
    n:integer;

Begin
   clrscr;
   readln(n);
   readln(xStart);
   readln(xStop);
   h:=(xStop-xStart)/(n-1);
   x:=xStart;
   xmax:=x;
   xmin:=x;
   while x<=xStop+h/2 do
    begin
       if f(x)>f(xmax) then
        xmax:=x;
       if f(x)<f(xmin) then
        xmin:=x;
       x:=x+h;
    end;
   writeln('xmax=',xmax:2:3,'   f(xmax)=',f(xmax):2 :3);
   writeln('xmin=',xmin:2:3,'   f(xmin=)',f(xmin):2 :3);
   readln
end.

Function ArcSin(x: Real): Real;
begin
  If Abs(x) = 1 Then ArcSin := 0
  Else ArcSin := ArcTan(x / (1 - Sqr(x)))
end;

{ И потом вычисляешь: }
y := ArcSin(sqrt(x)) / sqrt(x * (1 - x));

 
procedure intg(var int1,int2:real);
var h,suma,suma2,suma3,m:real; c:array[1..8] of real; y:array [1..8] of real;
 i,g,k,q:integer;
   begin
      clrscr;
c[1]:=0.2;    q:=8; h:=0.0125;
for i:=2 to 8 do begin
c[i]:=c[i-1]+h;
  for g:=2 to (q-1) do begin
  c[i]:=c[g];
  suma:=c[g]+suma; end;
  int1:=(h/2)*(2*suma+y[1]+y[q]); {за формулой Трапеции}
   
 for k:=2 to q-1 do begin
      c[g]:=c[k];
      m:= k mod 2;
      if m=0 then
      suma2:=suma2+f(c[k])
      else
      suma3:=suma3+f(c[k]); end;         end;
int2:=(h/3)*(c[1]+4*suma2+2*suma3+c[q]); {а это уже за Симпсоном}
writeln(int1);
writeln(int2);  readln  end;

procedure intg(var int1,int2:real);
var
  h,suma,suma2,suma3,m:real;
  c:array[1..8] of real; y:array [1..8] of real;
  i,g,k,q:integer;
begin
  clrscr;
  suma := 0; suma2 := 0; suma3 := 0; { <--- это никогда не помешает }
  c[1]:=0.2; q:=8; h:=0.0125;
  for i:=2 to 8 do { begin } { <--- убрать begin }
    c[i]:=c[i-1]+h;
  for g:=2 to (q-1) do begin
    c[i]:=c[g];
    suma:=c[g]+suma;
  end;
  int1:=(h/2)*(2*suma+y[1]+y[q]); {за формулой Трапеции}

  for k:=2 to q-1 do begin
    c[g]:=c[k];
    m:= k mod 2;
    if m=0 then suma2:=suma2+f(c[k])
    else suma3:=suma3+f(c[k]);
  end;

  { end; } { <--- убрать end }

  int2:=(h/3)*(c[1]+4*suma2+2*suma3+c[q]); {а это уже за Симпсоном}
  writeln(int1);
  writeln(int2);
  readln
end;

writeln(int1:7:5);

program tp14;
              uses crt;
type danni=record
  predmet:array [1..5] of string; {предметов берем 5}
  Mark:array [1..5] of integer; end;
  studrec=record
   name:string; end;
   sub=danni;
var student:array [1..8] of studrec;
 am:array [1..8] of string;
 k,s,i,n,f,r:integer; min:string;
 f2,f1:text;
   Begin
   assign (f2, 'dano.pas');reset(f2);   assign(f1,'rez.pas');  rewrite(f1);
     n:=0;
    for i:=1 to 2 do begin s:=0;    {возьмем к примеру два студента}
    with student[i] do begin
     readln(f, name);
      for k:=1 to 5 do begin
       with sub  do begin   {А вот тут выдает что просит поставить "(" но зачем???)}
        readln(f2,predmet[k]); end;
if student[i].danni.mark[k]=2 then
s:=s+1; end;
 if s=5 then begin n:=n+1;
  am1[n]:=student[i].name;
   writeln(f1, am1[n]); end; end; end.

Grisha
pr1
4
pr2
3
pr3
3
pr4
2
pr5
5
down
pr1
2
pr2
2
pr3
2
pr4
2
pr5
2

program tp14;
               {Vykonav Kravets Artem}
uses crt;
type danni=record
  predmet:array [1..5] of string;
  Mark:array [1..5] of integer; end;
  studrec=record
   name:string;
   sub:danni; end;
   var student:array [1..8] of studrec;
       sub:array [1..5] of danni;
 am1:array [1..8] of string;   am:array [1..8] of string;
 k,s,i,n,f,r:integer; min:string;
 f2,f1:text;
   Begin
   assign (f2, 'dano.pas');reset(f2);   assign(f1,'rez.pas');  rewrite(f1);
     n:=0;
    for i:=1 to 2 do begin s:=0;
    with student[i] do begin
     readln(f2, name);
      for k:=1 to 5 do begin
       with sub  do begin
        readln(f2,predmet[k]);
        readln(f2,mark[k]); end;
if student[i].sub.mark[k]=2 then
s:=s+1; end;
 if s=5 then begin n:=n+1;
  am1[n]:=student[i].name;
     writeln(f1, am1[n]); end; end; end;close(f1); end.

if s=5 then begin
  n:=n+1;
  am1[n]:=student[i].name;
  writeln(f1, am1[n]);
end;

if student[i].sub.mark[k]=2 then s:=s+1;

if student[i].sub.mark[k]=2 then begin
  s:=s+1;
  am[s] := student[i].sub.predmet[k];
end;

if s=5 then begin
  n:=n+1;
  am1[n]:=student[i].name;
  writeln(f1, am1[n]);
end;

if s > 0 then begin
  writeln(f1, student[i].name);
  for j := 1 to s do writeln(f1, am[j]);
end;

uses crt;
type danni=record
  predmet:array [1..5] of string;
  Mark:array [1..5] of integer; end;
  studrec=record
   name:string;
   sub:danni; end;
   var student:array [1..8] of studrec;
       sub:array [1..5] of danni;
 am1:array [1..8] of string;   am:array [1..8] of string;
 k,s,i,n,f,r,j:integer; min:string;
 f2,f1:text;
   Begin
   assign (f2, 'dano.pas'); reset(f2);   assign(f1,'rez.pas');  rewrite(f1);
     n:=0;
    for i:=1 to 2 do begin s:=0;
    with student[i] do begin
     readln(f2, name);
      for k:=1 to 5 do begin
       with sub  do begin
        readln(f2,predmet[k]);
        readln(f2,mark[k]); end;
if student[i].sub.mark[k]=2 then begin
  s:=s+1;
  am1[s] := student[i].sub.predmet[k];
if s > 0 then begin
  writeln(f1, student[i].name); end;
  for j := 1 to s do writeln(f1, am1[j]);
  end; end; end; end;  close(f1);  end.

Grisha
pr4
down
pr1
down
pr1
pr2
down
pr1
pr2
pr3
down
pr1
pr2
pr3
pr4
down
pr1
pr2
pr3
pr4
pr5

if student[i].sub.mark[k]=2 then begin
 s:=s+1;
 am1[s] := student[i].sub.predmet[k];
{ тут должен быть END }

program kursova_robota_PM_41_7_variant;
{Vykonav Schutskiy Pavlo}
uses graph,crt;
type vekt=array[1..1000] of real;
var n:integer; h,itg,g,t,int1,int2,s1,sh,intg,intgs:real; NN,NK,i:integer; w:text; ci,mi:vekt;
const a=0.2; b=0.3;
{_______________________________________}
      function ArcSin(x:real):real;
begin
 if Abs(x) = 1 then ArcSin:=0 else
 ArcSin:=ArcTan(x/(1-sqr(x))); end;
{---------------------------------------------------------------------------}

function f(x:real):real;
begin
   f:=ArcSin(sqrt(x))/sqrt(x*(1-x));
end;
{--------------------------------------------------------------------------}

procedure Grafika;
var gd, gm: integer;
    x,y: real;
begin
   gd:=detect;
   initgraph(gd, gm, '');
   SetBkColor(white);
   SetColor(4);
   Line(0, 100, 640, 100);
   Line(320, 0, 320, 480);
   SetColor(green);
   outtextxy(50,10,'Kursova Robota');  outtextxy(420,10,'Grafik Funkcii');
   outtextxy(50,20,'Vikonav Schutskiy Pavlo');
   outtextxy(50,30,'PM-41');
   PutPixel(320,240,0);
   outtextxy(325,245,'0');
      x:=0.2;
      While x<=0.9    do
begin
        y:=ArcSin(sqrt(x))/sqrt(x*(1-x));
        PutPixel(round(x*155)+350,round(y*155), 4);
        x:=x+0.00125;
end; repeat until keypressed; cleardevice;  closegraph;end;
{--------------------------------------------------------------------------}
procedure Zn(x,h:real);
var  c:array[1..8] of real;
i:integer; y:real;
begin
assign(w,'dan.pas'); rewrite(w);
writeln(w,'Znachennya funcii dlya kojnogo z X');
x:=0.2;  h:=0.0125;
for i:=1 to 8 do begin x:=x+h;
 y:=ArcSin(sqrt(x))/sqrt(x*(1-x));
c[i]:=y;
write(w,'f[',i,']=',c[i]:2 :3,'  ');
end;end;
{--------------------------------------------------------------------------}
procedure MaxMin(n:integer;h:real);
var x,xStart,xStop,xmin,xmax:extended;
begin
writeln(w,'');
writeln(w,'Znahodjennya MAX i MIN funcii:');
      xStart:=0.2;
      xStop:=0.3;
      x:=xStart;
      xmax:=x;   xmin:=x;
      while x<=xStop+h/2 do
begin
      if f(x)>f(xmax) then   xmax:=x;
      if f(x)<f(xmin) then  xmin:=x;
      x:=x+h;
end;
writeln(w,'Maksumalne znachennya funcii=',f(xmax):2 :3);
writeln(w,'Minimalne  znachennya funcii=',f(xmin):2 :3); writeln('');
end;
   {----------------------------------------------------------------------}
procedure Sum(x,h:real);
var Sum,y:real; i:integer; c:array [1..8] of real;
begin
for i:= 1 to 8  do begin
       if i>=6 then begin
    sum:=sum+x; end;
    x:=x+h;
end;
writeln(w,'Summa=',sum:3:3);writeln('');
end;
   {------------------------------------------------------------------------}
{nahogdenie integrala}
  procedure integral(x,y:vekt;var int,ints:real);
    var summa1,summa2,summa3,h:real;w,k,n,b:integer;
  begin
    summa1:=0; summa2:=0; summa3:=0; n:=8; h:=0.0125;
    w:=0;k:=0;n:=0;b:=0;
   for k:=2 to n do
    summa1:=summa1+2*y[k];
    int:=(h/2)*(y[1]+summa1+y[n+1]);
  for w:=2 to n-1 do         begin
    b:=w mod 2;
  if b=0 then
    summa2:=summa2+4*y[w] else
    summa3:=summa3+2*y[w]; end;
    ints:=(h/3)*(y[1]+summa2+summa3+4*y[n]+y[n+1]);
end;

{--------------------------------------------------------------------------}
Begin
    clrscr;
         Grafika;
assign(w,'dan.pas');rewrite(w);
      n:=8; h:=0.0125;
      s1:=0.2;
      Zn(s1,h);
      MaxMin(n,h);
      Sum(s1,h);
ci[1]:=0; n:=8; h:=0.0125;
  for i:=2 to (n+1) do begin
    ci[i]:=ci[i-1]+h;
  for i:=1 to (n+1) do
    mi[i]:=f(ci[i]);
      integral(ci,mi,intg,intgs);  end;
writeln(w,'Pershiy integral= ',intg:3 :3);
writeln(w,'Drugiy integral=  ',intgs:3 :3); reset(w);  end.

function f(x:real):real;
begin
  f:=ArcSin(sqrt(x))/sqrt(x*(1-x));
end;
...
ci[1]:=0;
for i:=1 to (n+1) do mi[i]:=f(ci[i]); { Деление на 0 как минимум тебе обеспечено... }

for i:=2 to (n+1) do { begin } { <-- Убрать begin }
  ci[i]:=ci[i-1]+h;
for i:=1 to (n+1) do
  mi[i]:=f(ci[i]);
integral(ci,mi,intg,intgs);  { end; } { <-- Убрать end }

procedure Zn(x,h:real);
var  c:array[1..8] of real;
i:integer; y:real;
begin
assign(w,'dan.pas'); rewrite(w); { <--- Убери эту строку }
...