Question

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

Answer 1

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