Составить программу наименьшего четырёх чисел и вывода на экран его квадрата

var chisl:array[1..4]of integer;i,min:integer;begin  for i:=1 to 4 do begin   Write(i,'-чисдо='); Readln(chisl[i]);  end;  min:=chisl[1];  for i:=1 to 4 do begin  if chisl[i]<=min then min:=chisl[i];end;Writeln('Квадрат минимума=', sqr(min));end.