Решите, пожалуйста, 2 задачи ну или хотя бы первую, 50 баллов

Question

Решите, пожалуйста, 2 задачи ну или хотя бы первую, 50 баллов

---

Answer 1

1. var  

 a : real;

begin

read(a);

if a > 0 then

 a := sqrt(a)

else if a = 0 then

 a := a + 30.45

else  

 a := sqr(a);

writeln(a);

end.