Ответ:

1)

program Hello;

var

x: real;

begin

Readln(x);

if x < 0 then

   Writeln(x/2:4:2);

if x >= 0 then

   Writeln(sqrt(x):4:2);

end.

2)

program Hello;

var

x: integer;

begin

Readln(x);

if x = 1 then

   Writeln('Здорово!');

if x = 2 then

   Writeln('Ух ты!');

if x = 3 then

   Writeln('Хорошо!');

end.