Впрограмме ! var k,a,x,d: integer; 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 x=d then k: =k+1 else k: =k; writeln(k); end.

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.