Для самих себя, для обаятельности, для окружающих нас людей
Var k,a:integer;
x,D: char;
begin
k:=0;
a:=14;
writeln('Продолжите ряд чисел 2,5,8,11,');
readln(a);
if a=14 then
k:=k+1
else
k:=k;
writeln('Выберите лишнее A)дом B)иглу C)бунгало D)контора ', x);
readln(D);
if D='D' then
k:=k+1
else
k:=k;
writeln(k);
end.
Лес,семья медведей,свежий воздух.Медведи наверно идут на охоту,они проходят через гору,чтобы подойти к реке,и поймать добычу.