(AVC)V(BVC)=А∨С∨С∨В=А<span>∨С∨В
С</span>∨С=С
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
For i=1 to 15
input a
s=s+a
next
? s
Филин
лиса
ель
школа
кошка
айст
прочитай только первый буквы и у тебя будеть слова флешка