Var a,s1,s2:integer; begin read (a); if (a>=1000)and (a<=9999)then begin s1:=(a mod 10) + ((a mod 1000) div 100); s2:=(a div 1000) + ((a mod 100) div 10); if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах'); if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах'); if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах'); end else writeln ('Вы ввели не 4-ёхзначное число'); end.
<h2>Глобальная сеть — любая сеть связи, которая охватывает всю Землю. Термин, используемый в данной статье, относится в более узком смысле к двунаправленным сетям связи, а также базе технологий сетей.(Интернет)</h2>