Заменить максимальное число заменить квадратом минимальным, минимальное заменить квадратом максимального

 Program wgw;
uses crt;
Var a,b,c,d:integer;
Begin
write('Введите числа a,b,c: '); readln(a,b,c);
writeln(' Даны числа: ' , a,',', b,',', c);
if (a<b) and (b<c) then
                       begin
                       d:=a;  a:=sqr(c);  c:= sqr(d);
                       end
                             else if (a<c) and (c<b) then
                                 begin
                                 d:=a;  a:=sqr(b); c:=sqr(d);
                                 end                                                                                                                                          
                                        else if (b<a) and (a<c) then
                                            begin
                                            d:=b; b:=sqr(c); c:=sqr(d);
                                            end
                                                else if (b<c) and (c<a) then
                                                    begin
                                                    d:=b; b:= sqr(a); a:=sqr(d);
                                                    end
                                                        else if  (c<a) and (a<b) then
                                                           begin
                                                              d:=c; c:=sqr(b); b:=sqr(d);
                                                              end
                                                                  else
                                                                     d:=c; c:=sqr(a); a:= sqr(d);
                                                                    
write(a,b,c);
readkey;
End.

var a:array[1..3] of Integer;t,min,max:Integer;
begin
  ReadLn(a[1],a[2],a[3]);
  min:=1;max:=1;
  if a[2]>a[max] then max:=2 else if a[2]<a[min] then min:=2;
  if a[3]>a[max] then max:=3 else if a[3]<a[min] then min:=3;
  t:=a[max];a[max]:=sqr(a[min]);a[min]:=sqr(t);
  WriteLn(a[1],a[2],a[3]);
end.