Составить алгоритм по информатики 8 класс на любую тему

Отправить письмо.  начало  возми письмо,конверт и марку. наклей марку.  напиши адрес на конверте. сложи письмо.  положи письмо в конверт.  заклей конверт. выйди из дома. брось конверт в почтовый ящик.   конец

Var     t,m: string;     i: integer; begin readln(t); m: ='нки'; for i: =1 to length(t) do   begin   if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))     and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))         then           begin           delete(t,i-3,3);           insert(m,t,i-3);           end;   end;   writeln(t) end.

Var   i: integer;   s: integer;   a: array[0..49] of integer; begin   s : = 0;   randomize;   for i : = 0 to 49 do   begin       a[i] : = random(60) - 10;       s : = s + a[i];       write(a[i], ' ')   end;   writeln;   writeln('сумма элементов массива ', s) end. пример выполнения в среде pascalabc.net: 46 10 18 47 16 20 3 7 27 -10 10 18 19 28 0 3 21 26 32 36 1 -8 36 32 44 25 35 -1 -4 45 30 35 28 -8 45 6 20 34 0 47 7 9 34 39 47 5 29 10 47 26 сумма элементов массива 1072