Записать по правилам Pascal данное выражение:

корень считается или через sqrt() или sqr(), всегда их путал.

if y < 0 then WriteLn('Квадратный корень из отрицательного числа извлечь нельзя! ')
else if x + sqrt(y) < 0 then WriteLn('Квадратный корень из отрицательного числа извлечь нельзя! ')
else WriteLn(-5 * sqrt(x + sqrt(y)) :0:5);