Встреченно '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.