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 нужно для того, чтобы уравнять десятичную дробь до сотых, если она получится.