Нужно составить алгоритмы (из блок-схем):
1) в лототроне по порядку лежат шары номерами от 10 до 100, выбрасывает каждый седьмой. составьте алгоритм для определения номеров выпавших шаров.
2) найти сумму первых n чисел.
3) найти сумму s чётных чисел и произведение нечётных b.
4) число а возводят в квадрат и результат увеличивают на 1. полученное число снова возводят в квадрат и результат увеличивают на 1. этот процесс продолжается до тех пор, пока не будет получено некоторое число, больше 500.
найдите это число.

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет

import array

a = array.array ('i',[])

import random

_summ = _elem = 0

_len = int (input ("Lenght: "))

for l in range(_len):

   a.append(random.randrange(0,700))

   if a[l] < 50:

       _summ+=a[l]

       _elem+=1

print ("Summ: ", _summ)

if _elem != 0:

   print("Average: ", _summ/_elem)

else:

   print("Average: 0!")

print("Mass: ", a)

Результат работы:

Lenght: 20

Summ:  7

Average:  7.0

Mass:  array('i', [266, 89, 7, 407, 506, 130, 630, 362, 419, 82, 639, 619, 695, 383, 685, 477, 368, 81, 62, 199])

Lenght: 5

Summ:  18

Average:  18.0

Mass:  array('i', [486, 170, 18, 183, 307])