Составить программу , в программе pascal даны 3 числа. найти наибольшее и заменить на 1000 , а остальные заменить на 0.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите три числа через пробел:',3);
  var mx:=a.Max; // нашли максимальное
  a.Transform(x->x=mx?1000:0); // замена
  a.Println // вывод
end.

Пример
Введите три числа через пробел: 354 -35 810
0 0 1000