составить программу наименьшую из 4 чисел и вывода на экран его квадрата

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var a:=ReadArrReal(4);  Println('Наименьшее->',a.Min);   Println('Квадрат->',a.Min*a.Min);end.