Написать программы на Pascal ABC:
1) Вывести на экран четырехзначные числа без повторений цифр.
2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.

beginvar seq := Range(1000, 9999);var s: string;foreach var x in seq dobegins := x.ToString;var count := 0;for var i := 1 to 3 dofor var j := i + 1 to 4 doif s[i] = s[j] then count += 1;if count = 0 then Print(s);end;end.