Помогите пажалуста в программке !!!!!var

Помогите пажалуста в программке !!!!!
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.

Виталя Пипкосевич 2019-09-10 12:50:04

а что необходимо?

Сергей Сарнецкий 2019-09-10 12:51:04

Поправить ошибку