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

var

x, y, z : real; / / объявляем переменные

begin

writeln ('Введите числа x и у'); / / выводим на экран текстовую строку

readln (x, y); / / считываем две переменные, введенные с клавиатуры

if (x > y) then / / если выполняется условие, то находим разность чисел

z : = x-y

else

z : = sqrt (x + y); / / если условие не выполняется, то находим квадратный корень (x+y)

writeln ('Ответ: ', round (z, 2)); / / выводим на экран строку с ответом, округленным до 2-го знака.

end.