Срочно ребят, помогите ПОЖАЛУЙСТА, буду очень благодарна))

Question

Срочно ребят, помогите ПОЖАЛУЙСТА, буду очень благодарна))

---

Answer 1

Var a,b:real;
begin
readln(a);
if a>0 then b:=4 else b:=-4;
writeln (b);
end.