До ть будь ласка)))
Інформатика програмування С#

Відомо початкові та кінцеві показники спожитої електроенергії. Вартість 1КВT-год електроенергії становить 0,9 грн, якщо обсяг споживання не перевищив 100кВт-год. Для понаднормових витрат тариф становить 1,68грн. Обчисліть кількість спожитої електроенергії за та поза нормою, суму до сплати.​

x = input()

y = input()

if x == y and (x == 'синий' or x == 'желтый' or x == 'красный') and (y == 'красный' or y == 'синий' or y == 'желтый'):

   print(x)

elif (x == 'красный' or y == 'красный') and (x == 'синий' or y == 'синий'):

   print('фиолетовый')

elif (x == 'красный' or y == 'красный') and (x == 'желтый' or y == 'желтый'):

   print('оранжевый')

elif (x == 'синий' or y == 'синий') and (x == 'желтый' or y == 'желтый'):

   print('зеленый')

elif x != 'синий' and x != 'желтый' and x != 'красный' or y != 'красный' and y != 'синий' and y != 'желтый':

   print('ошибка цвета')

я это уже решал на stepik

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.