1) Программа для вывода четырехзначных чисел без повторений цифр:

program UniqueFourDigitNumbers;
var
num, i, j, k, l: integer;
begin
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
begin
if (i <> j) and (i <> k) and (i <> l) and (j <> k) and (j <> l) and (k <> l) then
begin
num := 1000*i + 100*j + 10*k + l;
writeln(num);
end;
end;
end.

2) Программа для вывода произведения последовательности чисел:

program SequenceProduct;
var
n, num, i: integer;
begin
writeln('Введите количество чисел в последовательности: ');
readln(n);
num := 1;
for i := 1 to n do
num := num * i;
writeln('Произведение последовательности чисел: ', num);
end.

3) Программа для вывода предшествующей указанной на 1 день даты:

program PreviousDate;
var
day, month, year: integer;
begin
writeln('Введите день, месяц и год: ');
readln(day, month, year);
if day = 1 then
begin
if (month = 1) or (month = 2) or (month = 4) or (month = 6) or (month = 8) or (month = 9) or (month = 11) then
begin
day := 31;
month := month - 1;
end
else if (month = 5) or (month = 7) or (month = 10) or (month = 12) then
begin
day := 30;
month := month - 1;
end
else if month = 3 then
begin
day := 28;
month := month - 1;
end;
end
else
day := day - 1;
writeln('Предыдущая дата: ', day, '.', month, '.', year);
end.

Надеюсь, что указанные программы помогут вам! Если у вас возникнут дополнительные вопросы, не стесняйтесь их задавать. Удачи!