Подготовить ответ в виде доклада (3-5 стр) на во Модернизация блока питания.

1)  k:=k mod 3+k*cos(5);
В правой части стоит функция косинус, которая определена только для вещественных чисел и операция mod, которая определена только для целых чисел. Если k целочисленное, то правая часть будет вещественной и попытка присвоить вещественное значение целочисленной переменной недопустима. Надо ставить явное преобразование, например  k:=Trunc(k mod 3+k*cos(5)); или  k:=Round(k mod 3+k*cos(5));
Если же k - вещественное, то операция k mod 2 недопустима.
2) x:=x*2 div 6+x/4
Тут в правой части смешаны операция div, которая определена только для целых и операция деления, которая определена для вещественных. Такое смешивание вещественных и целый запрещено. В Паскале нет функции перевода целых в вещественные, только процедура, но её в выражение не встроишь. Поэтому можно только говорить о переводе результата х/4 к целому значение посредством Trunc(х/4) или Round(x/4). Либо о замене х/4 на x div 4. Само собой, х надо объявлять целым.

program weight_class;

var x, y:integer;

label 10,20;

 begin

   10:Writeln ('введите вес спорсмена в кг');

   Readln(x);

   if x<69 then

     Writeln('Спортсмен весом ', x, 'кг, относится к легкой категории');

   if (x>=69) and (x<85) then

   Writeln('Спортсмен весом ', x, 'кг, относится к средней категории');

   if (x>=85) and (x<105) then

   Writeln('Спортсмен весом ', x, 'кг, относится к тяжелой категории');

    if x>=105 then

   Writeln('Спортсмен весом ', x, 'кг, относится к супертяжелой категории');

   Writeln(' Будете еще вводить вес спортсмена: 1-Да, другая любая цифра-Нет');

   Readln (y);

   if y=1then

     goto 10;

  end.

Объяснение: