Несколько школьников выстроились в шеренгу. Для каждого школьника известен день его рождения. Требуется:

[scarecrow_1]

Несколько школьников выстроились в шеренгу. Для каждого школьника известен день его рождения. Требуется:Определить, совпадают ли дни рождений хота бы у трех рядом стоящих школьников.

[Stilet]

Написать код ввода шеренги школьников самостоятельно сможешь?

[Аватар]

Можете написать как будет выглядеть программа?

По-моему ТС ни чего не умеет. Только условие на форум выбросить

[scarecrow_1]

program fasd;
var a:array[1..31] of integer;
n,i,b,c,k:longint;
begin
repeat
write('количество учеников не больше 100 000='); readln(n);
until(n>0) and (n<100000);
for i:=1 to n do
begin
writeln('введите день рождения в промежутке от 1 до 31');
write('ученика[',i,']='); readln(a[i]);
if (a[i]>31) then while (a[i]>31) do begin
writeln('ученика [',i,']=');
readln(a[i]);
end
end;