Найти среднее арифметическое всех положительных целых чисел от a до b (b>=a) Если таких чисел нет то вывести сообщение "Таких чисел нет"

Программа на Паскале (net или abc)

Program Task;

Const a = 5;

b = 10;

Var i, c, d: Integer;

Begin

If a > b Then

WriteLn ('Ошибка')

Else

Begin

For i : = a To b Do

If i > 0 Then

Begin

c : = c + i;

d : = d + 1;

End;

If d > 0 Then

WriteLn ('Результат: ', (c / d) : 5:2)

Else

WriteLn ('Таких чисел нет') ;

End;

End.