Команды четырех соседних школ соревновались в волейбольном турнире. болельщики поделились своими предположениями: 1-й болельщик: 556-я победит, а 450-я будет второй. 2-й болельщик: нет, 556-я будет последней, а вот победит 324-я. 3-й болельщик: уверен, что первой будет 445-я, а 450-я третьей. когда соревнование закончились, выяснилось, что каждый болельщик был не прав в одном из своих прогнозов. какое место заняли команды школ?

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой