Составить программу перевода карат в граммы на промежутке от 15 до 25 каратов (1 карат = 0,2 грамма) в трех циклах, ! 20 !

Var  a: array[1..8] of integer;   i, b, min: integer; begin  b : = 1;   for i : = 1 to 8 do  begin    write('введите ', i, '-ый элемент массива ');     readln(a[i]); //вводим число if i = 1 then min : = a[i] else // если это первое число то min: = это число    if min > a[i] then begin //если min оказывается больше введённого числа min : = a[i]; //то min: = это чило b : = i; //и переменной b : = номер этого числа в массиве end;   end;   write('первоначальный массив | ');   for i : = 1 to 8 do write(a[i], ' ');   // выводим этот массив writeln('| индекс минимального элемента ', b, '. число ', a[b]); // переменную b и элемент стоящий на месте b    write('преобразованный массив| ');   for i : = 1 to 8 do    begin    a[i] : = a[i] - min;     //преобразуем массив вычитая из элемента i -  min write(a[i], ' ');   // и сразу выводим преобразованное число end;   write('|'); end. //конец