Добрый день с информатикой.

Var a,b,c,d,x,y,h,minx,miny:real; i:integer;
begin
writeln('a, b, c, d:');
readln(a,b,c,d);
h:=0.2;
x:=0; y:=a*x*x*x+b*x*x+c*x+d;
writeln(x:2:1,' ',y:5:2);
minx:=0; miny:=y;
for i:=1 to round((2-0)/h)+1 do
 begin
 x:=x+h;
 y:=a*x*x*x+b*x*x+c*x+d;
 writeln(x:2:1,' ',y:5:2);
 if y<miny then begin minx:=x; miny:=y; end;
 end;
writeln('min = y(',minx:2:1,') = ',miny:5:2);
end.

Пример:
a, b, c, d:
3 2 -1 4
0.0  4.00
0.2  3.90
0.4  4.11
0.6  4.77
0.8  6.02
1.0  8.00
1.2 10.86
1.4 14.75
1.6 19.81
1.8 26.18
2.0 34.00
2.2 43.42
min = y(0.2) =  3.90

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
k:=0;
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i] = 1 then k:=k+1
    End;
WriteLn('Количество единиц: ',k);
End.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(13)-6;
    Write(' ',A[i]);
    if A[i] < 0 then A[i]:=A[i]+A[1]
    End;
WriteLn;
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.