Исправьте ошибку в программке и что вычисляетесь приведённая ниже программка?Program

Очень неясная программа. Надобно добавить var a,b,c,i:integer; и ";" после I:=0 и If b>0 then i:=i+1 и тогда она будет выводить "3" если первое из введённых чисел отрицательное, а два следующих положительные. Если число меньше, то какое-то из этих критерий не соблюдено. А что должна делать?

Ах да, If c>o поменять на If c>0, т.е. буковку o на ноль.

А что обязана делать программка? Часто оплошности в самой логике чем в синтаксисе

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

program example;
var a,b,c,i:integer;
begin
    ReadLn(a, b, c);
    i := 0; 
   if a gt; 0 then i := i + 1;
    if b gt; 0 then i := i + 1;
    if c gt; 0 then i := i + 1;
    WriteLn(i)
end.