Var a,b,c:integer;beginreadln(a,b,c);if a>b then if b>c then writeln(a+b)else writeln(a+c)else if a>c then writeln(b+a)else writeln(c+b);end.
Светлана: 1→¬(1+0)=1→¬1=1→0=0;
Анатолий: 1→¬(0+1)=1→¬1=1→0=0;
Римма: 0→¬(1+0)=0→¬1=0→0=1;
Дмитрий: 1→¬(1+0)=1→¬1=1→0=0;
Ответ: Римма
Домик, Восточная стена, Дверь правая, Нижний замок, Ключ
Var a,b,c,d,e:integer;
begin
read(a,b,c,d,e);
write(a+b+c+d+e);
end.