Напишите программу на паскале -точка (x, y) находится в области a; – точка (x, y) находится в области b; – точка (x, y) находится в области c; – точка (x, y) находится вне всех областей. примечание: точки, лежащие на разделительных линиях, принад-лежат области b.

Var k: integer; begin       readln(k);       case k of           10..20: writeln('мне ', k ,' лет');       else           case k mod 10 of                 1   : writeln('мне ', k ,' год');                 2..4: writeln('мне ', k ,' года');           else writeln('мне ', k ,' лет');           end;       end; end.//#include < iostream> using namespace std; int main(){    int k;     cin > > k;     if (k > = 10 & & k < = 20)        cout < < "мне " < < k < < " лет" < < endl;     else        switch (k % 10)        {            case 1: cout < < "мне " < < k < < " год" < < endl; break;             case 2: cout < < "мне " < < k < < " года" < < endl; break;             case 3: cout < < "мне " < < k < < " года" < < endl; break;             case 4: cout < < "мне " < < k < < " года" < < endl; break;             default: cout < < "мне " < < k < < " лет" < < endl; break;         }}//case - оператор выбора