Шартты пишим деуди калай колдандыныз тусындырыныз 1)
2)
3)гистограмма
4)градиентты бояу

#include <iostream>  

#include <string>  

#include <conio.h>

   #define ESC 27

using namespace std;

int main() {

   char ch;

   int sum = 0;

   do {

       ch = _getch();

       if (ch == ESC) {

           cout << "Output of the program:\n" << sum;

           putchar('\n');

       } else {

           cout << ch;

           sum += (int)ch;

           putchar('\n');

       }

   } while (ch != ESC);

   system("pause");

   return 0;

}

Объяснение:

begin

 var a,b,c:integer;

 write('Введите числа a,b: '); readln(a,b);

         for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);

         writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');

end.

Примечание:

Если хотите сделать защиту от некорректного ввода, то программа будет выглядеть так:

begin

 var a,b,c:integer;

 write('Введите числа a,b: '); readln(a,b);

 if (a.ToString.Length<>4) or (a<0) then

   writeln ('Число а должно быть положительным четырехзначным')else

     begin

   if (b.ToString.Length<>2) or (b<10) then

     writeln ('Число b должно быть положительным двухзначным') else

       begin

         for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);

         writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');

       end;

   end;

end.