1. Есть множества А={п, е, ч, н, и, к}, С= {п, е, ч, ь}, В={ч, и, н}. Укажите следующие множества: а) А U В U С б) А ∩ В ∩ С в) дополнение В до А г) (А U С) ∩ В

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

Код:
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.