Выберите неверное утверждение:
1) не 0 = 1
2) A или 1 = 1
3) A или 0 = 0
4) Aи 1 = А е​

program z1;

var k:integer;

begin

readln(k);

if k-10 > k/2 then write(k-10)

else write(k/2)

end.

Объяснение:

У Красной шапочки есть выбор кому давать взятку Лесничему или Волку.

Если она дает взятку Лесничему, то принесет бабушке на 10 пирожков меньше.

k - количество пирожков, которые испекла мама

k - 10 - количество пирожков, которые принесет бабушке Красная шапочка, если даст взятку Лесничему

Если она дает взятку Волку, то принесет бабушке половину пирожков .

k - количество пирожков, которые испекла мама

k / 10 - количество пирожков, которые принесет бабушке Красная шапочка, если даст взятку Волку

Задача - принести максимальное количество пирожков

Сравним k - 10 и k / 10 и решим кому давать взятку

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.