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

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a:=ReadArrReal(4);
  Println('Наименьшее->',a.Min);
  Println('Квадрат->',a.Min*a.Min);
end.