Срочноо

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

vara,b,c:real;begin readln(a,b); if a>=b  then begin   b:=b*b*b;   a:=sqrt(a);   end  else   begin    a:=a*a*a;    b:=sqrt(b);   end; writeln(a:0:0,' ',b:0:0); readlnend.