program sostav_chisla;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,c,d:integer;
begin
writeln('Vvedite tri chisla');
readln(a,b,c);
writeln(' ');
writeln('Vvedennoe chislo ',a,b,c);
writeln('Vvedite lubyu zifru');
readln(d);
if (a=d) or (b=d) or (c=d) then writeln ('Zifra ',d,' vxodit v sostav chisla ',a,b,c)
else writeln ('Zifra ',d,' ne vxodit v sostav chisla ',a,b,c);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.