Помогите пожалуйста зделать задание по информатике Номер 12 и 13

Question

Помогите пожалуйста зделать задание по информатике
Номер 12 и 13

---

Comments

Pascal?

---

Да

Answer 1

12.
а=5

13.
begin
var
x:integer;
readln (x);
if x<0 then y:=-1;<br>if x=0 then y:=0;
if x>0 then y:=1;
end.

Comments

А 13

---

А 11 мне не надо

---

Не правильно указал номер задания, прости.

---

Также переделал код в задании 13, теперь он полностью правильный.