Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
Вот сайт переводит все и с решением
В Паскале запрещены операции, при которых возможна потеря части результата. Поэтому, в частности, запрещается присваивание целочисленной переменной вещественного значения.
На этом основании неверны операторы 2 и 3.
1001014))))))))))))))))))вроде так
<em>Используются в окне папки Мой компьютер следующие формы представления информации:</em>
<em>Локальный диск C;
Дисковод СD\DVD-Rom;</em><span><em>
Другие устройства. </em></span>