Составить программу определяющая существует ли среди чисел а, b,c число ,равное ,числу d.
Все числа и результат вывести на экран

ответ:

program n_1;

var a,b,c,d:integer;

begin

writeln ('введите три числа через пробел');

read (a,b,c);

writeln('введите число d')

readln(d);

writeln ('a= ,a:5,'b=',b:5,'c=',c:5);

writeln ('d=',d:5);

if (a=d) or (b=d) or (c=d) then write ('верно') else write (' неверно');

end.