1. имеются три коробки с кубиками. в одной находятся красные кубики, в другой- синие, в третьей могут лежать и красные, и синие. на каждой коробке раньше была табличка, верно указывающая ее содержимое, но некто перепутал их так, что теперь каждая табличка указывает содержимое неправильно. из какой коробки, не глядя, надо вынуть один кубик, чтобы безошибочно определить, что лежит во всех трех коробках? 1. с табличкой "синие кубики" 2. с табличкой "красные кубики" 3. с табличкой "синие и красные кубики" 4. не имеет решения

Ирина и Тимур = не информатика 
Камилла и Эльдар = не информатика 
Тимур = боится физики 
Камилла, Тимур = не литература, но плавают 
Тимур и Камилла = поздравили математика 
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Залим -  информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются) 
Тимур - не физика, не литература, не математика, не информатика, 
значит география 
Камилла - не информатика, не литература, не математика, уже не география => Физика 
Ирена - не информатика, не физика, не география => Литература 
Эльдар - Математика

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.