Придумать короткий рассказ о компьютере

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

Принятые в программе ДОПОЛНИТЕЛЬНЫЕ К УСЛОВИЮ ЗАДАНИЯ соглашения:
1. Разделителями между словами считаются любые символы, включенные к константу delim
2. Все символы, не входящие в delim, образуют алфавит (т.е. "буквы"), из которого может быть составлено каждое слово
3. Количество разделителей, окружающих каждое слово, ограничено только здравым смыслом. Все разделители будут переданы в строку результата без изменения.
4. Если слово содержит только один символ, оно не изменяется, несмотря на то, что единица - нечетное число. В противном случае такое слово было бы исключено. К тому же, слово длиной в один символ не имеет "средней буквы"

CONST delim = " .,;:!?-"
DIM s AS STRING, s1 AS STRING, word AS STRING, wd AS STRING
DIM i AS INTEGER, n AS INTEGER, k AS INTEGER
INPUT "Введите строку: ", s
'Обеспечить наличие пробела за последним словом
IF INSTR(delim, RIGHT$(s, 1)) = 0 THEN s = s + " "
'Начальные присваивания
n = LEN(s): s1 = "": i = 1
DO WHILE i <= n   'Просматриваем входную строку символ за символом
   'Ищем первый непробельный символ
   wd = ""  'qq
   DO WHILE (INSTR(delim, MID$(s, i, 1)) <> 0) AND (i <= n)
      wd = wd + MID$(s, i, 1)
      i = i + 1
   LOOP
   'Выделяем очередное слово, за которым следует пробельный символ
   word = ""
   DO WHILE (INSTR(delim, MID$(s, i, 1)) = 0) AND (i <= n)
      word = word + MID$(s, i, 1)
      i = i + 1
   LOOP
   'Найдено ли слово?
   k = LEN(word)
   IF k > 0 THEN  'Если слово найдено
      '--- вырезается средний символ при нечетной длине ---
      IF (k > 1) AND (k MOD 2 <> 0) THEN
         k = (k - 1) \ 2
         word = LEFT$(word, k) + RIGHT$(word, k)
      END IF
      '
      'Добавляем найденное слово через wd к выходной строке
      s1 = s1 + wd + word
   END IF
LOOP
PRINT "Результат: " + s1
END

Примеры работы программы:
1. Обычный текст: слова через один пробел
Введите строку: А роза упала на лапу Азора
Результат: А роза упла на лапу Азра
2. Использовано больше одного пробела и разделители : и !
Введите строку: Пример №2: Ура!   Мы ломим: гнутся шведы!
Результат: Пример №2: Уа!   Мы лоим: гнутся швды!
3. Использовано несколько непробельных разделителей подряд
Введите строку: Пример --№3--: Какое небо голубое!...
Результат: Пример --№3--: Каое небо голбое!...

Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)
  Только первых три

Задача 1:
var p: array[1..10] of integer;  
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> '); 
readln(count);
for i:=1 to count do write(p[i]:3);
end.

Задача 2:

var arr: array[1..10] of integer;   
i:integer;    
s:integer;    
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
end.

Задача 3:

var arr: array[1..10] of integer;    
i:integer;    
crat:integer;    
id:integer;       
begin   
for i:=1 to 10 do   
begin   
read(arr[i]);   
crat:=arr[i] mod 3;   
if(crat = 0) then   
begin   
id:=arr[i];     
if(arr[i] = id) then writeln('Id = ', i:2);    
end;   
end;   
end.