Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет

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.