Найти среднее арифметическое цифр натурального числа n использовать частично стандартный алгоритм накопления суммы)

var i,n,sum: integer;

begin

readln(n);

while n> 0 do begin

i: =i+1;

sum: =sum+(n mod 10);

n: =n div 10;

end;

writeln(sum/i);

end.

Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом: uses  graphabc; var  x0, y0, x1, y1: integer; begin          setwindowsize(400, 400); //устанавливаем размер окна      x0 : = windowwidth; //ширина окна      y0 : = windowheight; //высота окна          setfontcolor(clred); //устанавливаем цвет текста      textout(0, 0, 'сергей'); //надпись в левом верхнем углу            x1 : = windowwidth div 2; //половина ширины окна      y1 : = windowheight div 2; //половина высоты окна          setfontcolor(clblue);       textout(x1, y1, 'сергей'); //надпись посередине          setfontcolor(clyellow);       textout(0, y0, 'сергей'); //надпись в левом нижнем углу      setfontcolor(clpurple);     textout(x0, 0, 'сергей'); //надпись в правом верхнем углу          setfontcolor(clgreen);       textout(x0, y0, 'сергей'); //надпись в правом нижнем углу end.программа была написана   в pascal abc.net. , проверьте, работает ли она в вашем pascal.

Самой популярной и удобной программой, на мой взгляд, является  microsoft office word,  но он является платным и требуется лицензия(не для : ) )бесплатным аналогом и отцом данный программы является вшитый в windows wordpad. у него намного меньше функций, но зато бесплатный.существует много программ для данной деятельности от разных ос, но эти, на мой взгляд, самые практичные, как и вся линейка продуктов microsoft. еще удобны продукты компании adobe, но удобство и цена уступают microsoft-у.