Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень.

Var
a,b,min:real;
   begin
          readln(a,b);
               if a<b then
                  begin
                       min:=a;
                       writeln('a<b');
                  end
               else
                  begin
                      min:=b;
                      writeln('b<a');
                  end;
       if min<0 then
          writeln(sqr(min))
       else
           writeln(sqrt(min));
end.