ПОМОГИТЕ НАПИСАТЬ ЗАДАЧУ.ввести два числа, найти квадрат наибольшего и извлечь квадрат наименьшего

Var a,b:real; Begin readln(a,b);        if a>b then begin writeln('Квадрат числа',a,'=',a*a);                                                   writeln('Корень числа ',b,'=',sqrt(b));                                    end;        if b>a  then begin writeln('Квадрат числа ',b,'=',b*b);                                                    writeln('Корень числа ',a,'=',sqrt(a));                                    end;                    End.