если х больше у то найти х-у иначе квадратный корень х+у в паскале

Program z1;

var x, y, z:real;

begin

Write ('Введите числа: ') ;

Write ('x = ') ; read (x) ;

Write ('y = ') ; read (y) ;

if x>y then z:=x-y

else z:=sqrt (x+y) ;

Writeln ('Исходя из значений x и y, получится чило: ', z:6:2) ;

end.

P. S.: Z:6:2 нужно для того, чтобы уравнять десятичную дробь до сотых, если она получится.