[Alegun]

Код:

// Задание.
var
 // Дан целочисленный массив X1,...,X17.
  x: array[1..17] of integer;
 // Заданы два натуральных числа a и b.
 const
  a = 2;
  b = 5;
 //-Вывести одномерный массив заданной размерности из файла 1
 procedure TForm1.Button1Click(Sender: TObject);
var
 i,c: integer;
 f: TextFile;
begin
 AssignFile(f,'1.txt');
 Reset(f);
  for i:= 1 to 17 do
  begin
   Read(f, c);
   x[i]:= c;
  end;
 CloseFile(f);
end;

// Вывести исходный массив с комментарием на форму в компоненты Label...
procedure TForm1.Button2Click(Sender: TObject);
var
 i: integer;
begin
 Label1.Caption:= 'массив с комментарием:';
 for i:= Low(x) to High(x) do
  Label1.Caption:= Label1.Caption + #13#10+ IntToStr(x[i]);
end;

// -Произвести сотвествующие вычисления в массиве.
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
 for i:= 1 to Length(x)-1 do

 // Заменить те элементы массива на 100, которые кратны a и не кратны b.
 if (x[i] mod a = 0) and (x[i] mod b <> 0) then
     x[i]:= 100;
end;

Що це таке "F1book1(всточку)" не ведаю