СРОЧНО!!!!!!!!!!Помогите пожалуйста по информатике 20 баллов

Question

СРОЧНО!!!!!!!!!!Помогите пожалуйста по информатике
20 баллов

---

Answer 1

Var a,b: real;f:integer; beginreadln(a,b);if (a>=0) and (b>=0)then beginf:=1;end else f:=0  ; writeln(f);end.

Comments

var a,b: real;
f:integer;

begin
readln(a,b);
if (a>=0) and (b>=0)
then begin
f:=1;
end else f:=0 ;
writeln(f);
end.