Составить фрагмент программы, используя команду цикла со счетчиком: найти сумму пяти чисел, первое из которых равно 10, а каждое из четырех следующих на 3 больше предыдущего

В документе выбираешь вкладку "Файл", нажимаешь на неё, из вариантов выбираешь "сохранить как" или "сохранить".
Если выберешь "сохранить как" , то сможешь в проводнике выбрать наиболее удобное тебе расположение в папке, соответствующей классификации файла; выбрать для этого текстового файла имя.
А если выберешь просто " сохранить", то врятли сможешь найти потом свой файл на своём компьютере: хотя он и может сохраниться на рабочий стол, но он также может и затеряться в изобилии папок, программ и файлов.

Немного теории. Если число одновременно кратно a и b, то она кратно и их произведению, т.е. a x b. В нашем случае числа должны быть кратны 2х3=6.
первое натуральное число, кратное 6, это 6. Далее следуют 12, 18, ...
Задача сводится к нахождению суммы ряда 6+12+18+...+6*n, где n=1000, т.е.
s=6+12+18+...+6000.
Это сумма арифметической прогрессии и она может быть найдена по формуле:

Среднее арифметическое такого ряда будет равно сумме, деленной на количество членов ряда n:

Теперь можно решить задачу даже "в уме": avg=(6+6000)/2=3003, s=3003x1000=3003000. Это будут контрольные значения для проверки работы программы.

//PascalAC.Net 3.0, сборка 1066
const
  n=1000;
var
  i:integer;
  s:longint;
begin
  s:=0;
  for i:=1 to 1000 do s:=s+6*i;
  Writeln('Сумма=',s,', среднее арифметическое=',s/n)
end.

Результат выполнения программы:
Сумма=3003000, среднее арифметическое=3003