Question

Программа для решения по блок-схеме

Answer 1

begin

var K,B,A: integer;

ReadLn(B,A);

K:=0;

if( A>=0 ) then begin

 K:=K+1; end;

if( B>=0 ) then begin

 K:=K+1; end;

writeln(K);

end.