program Chernovik;
var a,b,c,d,i: integer;
begin
read(a,b,c,d);
for i:=1 to 5 do
if (i<>a) and (i<>b) and (i<>c) and (i<>d) then write(i)
end.
Объяснение:
Вводим числа
В цикле проверяем условие, если переменная цикла не равна ни одному из введенных чисел, то выводим её на экран
