Что вычисляет приведённая ниже программка? Приведите два образца начальных данных и

Что вычисляет приведённая ниже программа? Приведите два примера начальных данных и результата
Program example;
Var x,y,z,I :integer;
Begin
nbsp;nbsp;ReadLn(a,b,c);
nbsp;nbsp;i:=0;
nbsp;nbsp;If agt;0 then i:=i+1;
nbsp;nbsp;If bgt;0 then i:=i+1;
nbsp;nbsp;If cgt;0 then i:=i+1;
nbsp;nbsp;WriteLn(i)
End.