Question

Исправьте ошибку в программе и что вычисляетесь приведённая ниже программа?
Program example;
Begin
ReadLn(a,b,c);
I:=0
If a<0 then i:=i+1;
If b>0 then i:=i+1
If c>o then I:=I+1;
WriteLn(I)
End.

Answer 1

Если задание - подсчет кол-ва чисел больше нуля среди трех данных чисел

program example;
var a,b,c,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.