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

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