1. В текстовом процессоре создайте новый документ.
2. Шрифтом Times New Roman в 14 пунктов наберите текст и вы-
полните форматирование символов по образцу:
ие
Тучи заволокли небо.
Мы купили новые книги.
Снег лежал на крыше и на балконе.
3. Сохраните файл в личной папке под именем Подчеркивание. rtf
и закройте его.​

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

значение формулы срзнач=(d1: d4) равно 5

  можно подставить любые числа и проверить, в любом случае будет 5. а еще в диапазоне d2: d4 3 ячейки, сумма 15, добавилась еще одна ячейка d1,  в ней значение 5. 15+5=20, а среднее 20: 4=5