9. Написать программку вычисления функции у: у=sqrt(х+5).если xamp;gt;0. у= sqrt(5+х), если

пожалуйста решите мне очень срочно необходимо

Ты задание явно с ошибкой переписал. Проверь.

я не мог верно написать потому что я просто текст скопировал и воткнул

Проспись и напевай, студент. Ты понимаешь, что функция в твоём задании не различается в зависимости от условия (для чего она тогда?)?

я не мог не правильно написать поэтому что я просто текст скопировал и вставил

Откуда копировал, занимательно?

Программка кратко.
Если навещал уроки то сможешь ее написать чтобы работала.
В условии задачки ошибка, наверняка заместо - написал плюс.
y = sqrt(х+5). если xgt;0.
пусть тут будет так: у= sqrt(5-х). если xlt;0

Program radical;
var x,y:integer;
Begin
readln(x);
if ((x+5) gt;= 0) and ((5-х) gt;=0)) then begin
    проверка чтоб не-было меньше нуля
    if (xgt;0) then 
       y = sqrt(x+5);
    else if (xlt;0) then 
       y = sqrt(5-x);
    writeln('итог=', y); 

   end
else 
    writeln("нельзя извлечь корень из отрицательного числа");

readln();

End.