Спрограммированием, яне знаю как это решить но может кто знает ? 
 //вычислить объем параллелепипеда и площадь поверхности
 //вычислить площадь прямоугольника
 #include 
 using namespace std; 
 class a
 {
 private: 
 int a; 
 int b; 
 public: 
 void seta(int h, int w)
 {
 a=h; 
 b=w; 
 }
 int geta()
 {
 return a*b; 
 }
 int f()
 {
 return a; 
 }
 }; 
 int main() {
 a c1, c2; 
 int x; 
 int y; 
 cout < < "высоту введи " < < endl; 
 cin > > x; 
 cout < < "ширину введи " < < endl; 
 cin > > y; 
 c1.seta(x,y); 
 cout < < "только высота " < < c1.f() < < endl; 
 int d = 4; 
 int c=7; 
 c2.seta(c,d); 
 cout < < "только высота " < < c2.f() < < endl; 
 cout < < c1.geta()+c2.geta()< < endl; 
 return 0; 
 }
                                                            
                             
                         
                    
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет