Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет
Var a,b,c,d:longint; begin readln(a); {Номер вашей школы} readln(b,c,d); {№ школ} if (a=b) or (c=a) or (d=a) then writeln(' номер школы есть') else writeln('номера школы нет'); end.