Товарищи!:) Помогите, пожалуйста, с информатикой!
Что вычисляет приведённая ниже программа?
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(a,b,c);
i:=0;
If a>0 then i:=i+1;
If b>0 then i:=i+1;
If c>0 then i:=i+1;
WriteLn(i)
End.
Вводятся три числа и программа вычисляет количество
тех из них, которые больше 0 и выводит эту сумму на экран.
Вводятся три числа, программа выдает КОЛИЧЕСТВО чисел, которые больше ноля.