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

Program Task; Const a=5; b=10; Var i, c, d: Integer; BeginIf a > b ThenWriteLn ('Ошибка') ElseBeginFor i: =a To b DoIf i > 0 ThenBeginc: =c+i; d: =d+1; End; If d > 0 ThenWriteLn ('Результат: ', (c / d): 5:2) ElseWriteLn ('Таких чисел нет'); End; End.