1. Надрукувати привітання з днем народження за до функції: Happy birthday to you!
Happy birthday to you!
Happy birthday,dear Oksana
Happy birthday to you!
2. Дано координати трьох точок. Визначити площу трикутника,утвореного цими точками. Скористайтеся формулою Герога. (Тут тоже как-то функции использовать надо).
!

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

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

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

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

Переводим 112 и 64 в 2СС . 
112 =1110000
 64 =1000000
так как байт - это 8 бит ,следовательно в числе должно быть восемь знаков , тогда добавляем перед числами по незначащему нулю , тогда
112 = 01110000
64 = 01000000
адрес сети получается , когда мы применяем поразрядную конъюнкцию (между маской и ip адресом)
01110000
<-- маска 

01000000
мы видим в адресе сети единицу и над ней в ip адресе тоже единица , значит на этом месте в маске может быть только 1 .
Так как в маске у нас идут (СТРОГО) сначала единицы ,потом нули, тогда маска будет равна 11000000 , что в переводе в 10 -ную СС =192
ответ : 192