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

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.