Исправьте ошибку.Паскаль.В последовательности симаолов, вводимых с клавиатуры , подсчитать количество пар символов "*".

[votsar]

В последовательности симаолов, вводимых с клавиатуры , подсчитать количество пар символов "*". Признак завершения ввода: два символа "+"

program mg4000;
var x,y:char; k:integer;
begin
repeat
readln(x);
y:=x;
if (x='*') then inc(k);
until (x='+') and (y='+');
readln;
writeln('k='k div 2);
end.

[sem6703]

program mg4000;
var x,y:char; k:integer;
begin
x:='';
repeat
y:=x;
readln(x);
if (x='*') then inc(k);
until (x='+') and (y='+');
readln;
writeln('k='k div 2);
end.

[Simply-Art]

Сообщение от votsar

... подсчитать количество пар символов "*"

program mg4000;
var x,y:char; k:integer;
begin
repeat
readln(x);
y:=x;
if (x='*') then inc(k);
until (x='+') and (y='+');
readln;
writeln('k='k div 2);
end.

У вас всегда же y будет равен x
возможно так будет лучше:

program mg4000;
var x,y:char; k:integer;
begin
readln(x);
readln(y);
while (x<>'+') and (y<>'+') do
 begin
  if (x='*') and (y='*') then inc(k);
  y:=x;
  readln(x);
 end;
writeln('k='k);
readln;
end.

ps вам ответили в другом разделе, вроде правильно.