. Берілген мәндерді формула бойынша есептеу. Program sum;

var y,a,x,b:real;

begin

Readln(x,a,b);

if x=2 then y:=a*x*x+b else y:=sqrt(x+b);

Writeln('y=',y);

Readln;

End.

не совсем понятно, что вы хотите от программы.

я так понял, что вам нужно найти среднее значение всех элементов 3 списков, если это так, то обратите внимание вот на эти строки

my_list1 = a[i]

my_list2 = b[i]

my_list3 = c[i]

здесь сбита табуляция, однако я думаю, что вы явно прогоняете эти переменные по циклу и хотите работать с ними дальше в виде списка с переменными, в этом случае вы должны были объявить их до цикла и в самом цикле написать что то типа my_list1 += a[i], а получается, что весь цикл они просто переприсваиваются и по завершении просто равны последнему элементу a, b, c соответственно, уберите days = float(days) из цикла - занимает память и num никак не используется - ну это мелочи,

если бы вы написали что хотите от кода, я бы детальнее

1.Откройте меню «Выполнить» с комбинации клавиш [Windows] + [R].

В диалоговом окне введите без кавычек слово «desktop» и нажмите [Enter]. Должен отобразиться каталог рабочего стола вашего профиля Windows.

Если в нем присутствуют значки и папки, значит проблема лишь в их отображении.

Если каталог рабочего стола пуст, возможно, все папки и ярлыки были удалены.

2.Щелкните правой кнопкой мыши на пустой области рабочего стола, чтобы открыть контекстное меню.

Перейдите к пункту «Вид» и проверьте, отмечен ли чекбокс «Отображать значки рабочего стола». Если это не так, верните галочку на ее законное место и тогда все вернётся.

3.Попробуйте перезапустить Windows.