Нужно сделать скриншоты к ответам задач

var
  A, B, C: Array[1..7] of Real;
  i: Integer;
  min: Integer;
begin
  A[1] := 13;
  B[1] := 0.5;
  for i := 2 to 7 do
    A[i] := 2 * a[i - 1];
  for i := 2 to 7 do
    b[i] := cos(b[i]) + 4;
  min := 1;
  for i := 1 to 7 do
    c[i] := a[i] + b[i];
  for i := 2 to 7 do
    if c[min] > c[i] then
      min := i;
  ShowMessage(FloatToStr(c[min]));
end;

var
  a, _y: Array[1..9] of Real;
  _x, _z: Real;
  i: Integer;
  s: String;
begin
  Randomize;
  s := '';
  _x := 0.0;
  _z := 0.0;
  for i := 1 to 9 do
    begin
      a[i] := (Random * 10) - 5;
      if a[i] < 0 then
        _z := _z + a[i]
      else
        _x := _x + a[i];
    end;
  for i := 1 to 9 do
    begin
      _y[i] := (a[i] * Sin(_x)) - _z;
      s := s + FloatToStr(_y[i]) + #10#13;
    end;
  ShowMessage(s);
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const nmax=30;
var y,a:array[1..nmax] of real;
    n,i,k1,k2:integer;
    mn,mx:real;
begin
randomize;
 repeat
  write('n ot 1 do ',nmax,' n=');
  readln(n);
 until n in [1..nmax];
writeln('Massiv Y:');
for i:=1 to n do
 begin
  y[i]:=9*random;
  a[i]:=frac(y[i]);
  write(y[i]:5:2);
 end;
writeln;
mn:=0.5;
mx:=0.5;
k1:=0;
k2:=0;
for i:=1 to n do
 begin
  if(a[i]>=0.5)and(a[i]>mx) then
   begin
    mx:=a[i];
    k1:=i;
   end;
  if(a[i]<0.5)and(a[i]<mn) then
   begin
    mn:=a[i];
    k2:=i;
   end;
 end;
if 1-mx>mn then k1:=k2;
write('Naibolee blizkoe k celomu=',y[k1]:0:2);
readln
end.