Найти совпадающие по содержимому файлы в двух заданных каталогах (аргументы 1 и 2 командной строки) и всех их подкаталогах. Вывести на консоль и в файл (аргумент 3 командной строки) полный путь, размер, дату создания, права доступа, номер индексного дескриптора.

(см. объяснение)

Объяснение:

Программы написаны на языке PascalABC.NET 3.8 сборка 2899.

Задача №1:

##

ReadString.ForEach(procedure(x)->print(x))

Задача №2:

##

power(Integer.Parse(ReadString[::-1]),2).Print;

Задача №3:

##

var n: integer := ReadInteger;

print('На лугу пасётся '+n);

case n of

1: print('корова.');

2..4: print('коровы.');

5..9: print('коров.');

end;

Задача №4:

##

'В нашем саду растут 20 яблонь и 15 груш.'.Replace('20','35').Replace('груш','яблонь').Replace('яблонь','груш',1).Print;

Задание выполнено!