что вычисляет приведённая ниже программа

Ответ от Fatalex-редиска;-)[гуру]
Дык, по идее эта программа на Паскале вообще ничего не сможет вычислить:
в ней описаны одни переменные ( Var x,y,z,I :integer; ), а в теле самой программы фигурируют совсем другие
( 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 )
А вот такая программа вычисляла бы количество положительных чисел, из трёх введённых:
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(x,y,z);
I:=0;
If x>0 then I:=I+1;
If y>0 then I:=I+1;
If z>0 then I:=I+1;
WriteLn(I)
End.
Источник: Когда-то давно изучал Паскаль на "Информатике"