Question

Помогите пожалуйста помогите плиз!!!!

Answer 1

var

n : longint

p, q : integer

Begin;

Readln (n);

Readln (p);

Readln (q);

a:= n+p;

b:= n/100*q+n;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

b:= b/100*q+b;

If a>b then begin

writeln("1");

end

else begin

writeln("2");

end;

End.