СРОЧНО ПАСКАЛЬ 8 ВАРИАНТ!!!!

Question

СРОЧНО ПАСКАЛЬ 8 ВАРИАНТ!!!!

---

Comments

А что за задание то?

---

простое ветвление

Answer 1

program abc;

var y,x:real;

begin

readln(x);

if x<0 then  </p>

y:=sqr(x)

else

y:=(cos(x)/sin(x)) * (cos(x)/sin(x));

writeln(y);

end.

Comments

пишет ввод данных

---

Не понял

---

а лан не суть

---

мне другое надо сделать помоги