Программу в паскале. просклонять слово «корзина» для числа в диапазоне от 1 до 10

Var a: integer;     b: string; begin  write('сколько у вас корзин? '); readln(a);   case a of  1: b: ='корзина';   2..4: b: ='корзины';   5..10: b: ='корзин'              end; writeln(a,' ',b); end.    

Const dlin = 100; var b: array[1..dlin,1..2] of integer;         i,j,x: integer; begin writeln('исходный массив: '); for i: =1 to dlin do   begin   b[i,1]: =random(800)+100;   write(b[i,1],' ');   b[i,2]: =b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;   end; writeln; for i: =1 to dlin-1 do   for j: =dlin-1 downto i do       if b[j,2]> b[j+1,2] then       begin       x: =b[j,2]; b[j,2]: =b[j+1,2]; b[j+1,2]: =x;       x: =b[j,1]; b[j,1]: =b[j+1,1]; b[j+1,1]: =x;       end; writeln('отсортированный массив: '); for i: =1 to dlin do     write(b[i,1],' '); end.

#include< bits/stdc++.h> using namespace std; char b = '0'; int main() {     string s;     cin > > s;     string t; t[0] = '9';     s[s. += (1);     for (int i = s.length() - 1; i > 0; --i)     {         if (s[i] > '9')         {             s[i] = '0';             s[i - 1] += 1;             continue;         }        break;     }     if (s[0] > t[0])      {       cout < < 1;       s[0] = '0';       }    cout < < s; }