Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
Верхний правый угол нажми на свой аватал , там есть выход .
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Раскрой скобки и переверни знак. получится, что 2 ответ правильный, но я не уверен на 100\%