Найти среднее арифметическое всех положительных целых чисел от 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.

Машинно-независимые языки  удобны в использовании для широкого круга пользователей, от ч еловека не  требуется полного знания специфики компьютеров; алфавит  алгоритмического языка значительно шире алфавита машинного языка, что существенно повышает наглядность текста программы;   набор операций,  допустимых для использования,  не зависит от набора машинных операций, а выбирается из соображений удобства формулирования алгоритмов решения определенного класса;   формат предложений  достаточно  гибок и удобен  для использования, что позволяет с одного предложения задать достаточно содержательный этап обработки данных;   требуемые операции с   общепринятых обозначений, а не для каждого компьютера отдельно;   данным в алгоритмических языках присваиваются индивидуальные имена, выбираемые программистом;   в языке может быть предусмотрен значительно  более широкий набор типов данных  по сравнению с набором машинных типов данных.

Program menu; uses  crt; var  m, i: integer;   n, z, x, b: longint; begin  writeln('выберете пункт меню: ');   writeln('[1]вычисление суммы цыфр числа n');   writeln('[2]вывод на экран таблицы квадратов первого десятка');   writeln('[3]дано число n. определить его четность');   writeln('[4]выход');   read(m);       case m of    1:                   begin            clrscr;             writeln('введите число n: ');             read(n);               x : = 10;               z : = n mod x;               while n div x > 0 do              begin              b : = x;                 x : = x * 10;                 z : = z + n mod x div b;               end;               writeln('ответ: ', z);               end;         2:               begin            clrscr;             for i : = 1 to 10 do            begin              writeln('квадрат ', i, ' = ', sqr(i));             end;           end;           3:       begin              clrscr;               writeln('введите число n: ');               read(n);               if (n mod 2 ) = 0 then writeln('число ', n, ' четное.') else writeln('число ', n, ' не четное.');             end;           4: exit;   end;     end.