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

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.