Рассматривая объект телевизор как систему выберете из списка подходящий входы и выходы : свет звук электромагнитные волны ; электроэнергия мускульная сила человека изображение цвет пыль грязь тепло холод регулятор громкости кнопка включения / выключения стоимость

ВХОДЫэлектромагнитные волны (принимаемые радиоволны)
электроэнергия (питание)
мускульная сила человека (включение питания, переключение регуляторов)
пыль (может вывести из строя, снижает яркость изображения)
грязь (может вывести из строя, снижает яркость изображения)
тепло (может вывести из строя)
холод (может вывести из строя)
регулятор громкости (изменяет громкость)
кнопка включения/выключения
стоимость (определяет класс телевизора, его функции и надежность)
ВЫХОД
свет (изображение)
звук
электромагнитные волны (изображение, радиопомехи)
изображение
цвет (цветность изображения)
тепло (выделяемое телевизором тепло может нагревать сам телевизор и окружающие предметы - вплоть до возгорания)
стоимость - зависит от класса телевизора, его функциональности и надежности, и определяет, будут ли его покупать и, соответственно, использовать)

While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;

Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.