НАПИШИТЕ КОД НА ПАЙТОНЕ В кинотеатре ежедневно проводится три сеанса: утренний, дневной и вечерний. Число зрителей является случайной величиной с нормальным законом распределения. Средние значения M1=50, M2=100, M3=150 человек для утреннего, дневного и вечернего сеансов соответственно. Среднее квадратическое отклонение равно 7 человек (одинаково для всех сеансов Напишите алгоритм для определения выручки за месяц, если цена билета на утренний сеанс равна 50 руб., дневной - 60 руб., вечерний -120 руб.

Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.

Код:
procedure calculateSum(str : string);var s0 : string;    number, sum : real;begin  sum := 0;  foreach s0 in Regex.Split(str, '\++') do  begin    number := StrToFloat(s0);    if (number > 0) then    begin      sum := sum + number;    end;  end;  writeln(str + '=' + sum);end;
var s : string;begin  write('Введите пример: ');  readln(s);
  calculateSum(s);  end.