1.определите значение переменной а после выполнения алгоритма а=5 b=7 b=11+а* б а=б/2*а 2.Чему равна переменная с после выполнения этой программы: а=45 b=7 а=a//b+b 3.Напищите наименьшее целое число х, для которого истинно высказывание: НЕ(Х<2) И(X<5)

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

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

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

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

from random import randint

import pygame

POINTS = [(randint(20, 400), randint(20, 300)) for _ in range(int(input()))]

WHITE = (255, 255, 255)

def draw(scr, points):

   for i in range(len(points) - 1):

       pygame.draw.line(scr, WHITE, points[i], points[i + 1], 1)

pygame.init()

size = 400, 300

pygame.display.set_caption('title')

screen = pygame.display.set_mode(size)

run = True

while run:

   for event in pygame.event.get():

       if event.type == pygame.QUIT:

           run = False

   screen.fill((0, 0, 0))

   draw(screen, POINTS)

   pygame.display.flip()

pygame.quit()

Можно так, но библиотеку pygame надо устанавливать из командой строки, или среды разработки которую вы используете