ПАСКАЛЬ: Найти все четырехзначные числа у которых сумма крайних цифр равна сумме внутренних цифр.

//PascalABC.NET//Версия 3.3.5, сборка 1650beginvar f: string->boolean:=x->(x[1].ToDigit+x[4].ToDigit)=(x[2].ToDigit+x[3].ToDigit);1000.To(9999).Where(t->f(t.ToString)).Println;end.