Question

Встреченно 'end', а ожидалось ';'
program n_1;
var a, b : string;
i, s, n: integer;
begin n:=0;
repeat writeln('Введите слово');
readln(a);
s:=length(a);
for i:=1 to s do
begin
if a[i]= then n:=n+1
end;
if n>=2 then b:=b+' '+a;
writeln('Слово',b);
writeln('Количество букв: ', n);
end.

Answer 1

после if a[i]=then n:=n+1 Не поставил ; после 1. внимательно пересмотри задачу

Answer 2

var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a);  writeln('Слово = ',a); writeln('Количество букв: ', s); end.