Номер не зарегестрирован в сети (мтс) как позвонить или послать смс с этого номера

никак он же не зарегистрирован

невожможно позвонить надо зарегестрироватьса

Var a,b,c,i,sum,cp: integer; begin sum: =0; cp: =0; randomize; writeln('посчитайте сложение: '); while i< 10 do begin a: =random(40)+10; b: =random(60)+10; sum: =a+b; write('сколько будет ',a,'+',b,'= '); read(c); if c=sum then  begin cp: =cp+1; writeln('молодец! '); end else writeln('неправильно'); i: =i+1; end; writeln('всего правильных ответов ',cp); write('оценка: '); if (cp< =4) then write(' плохо (2)') else if (cp> =5) and (cp< =6) then write('удовлетворительно (3)') else if (cp> =7) and (cp< =8) then write('хорошо (4)') else if (cp> =9) then write('отлично! (5)'); end.

Pascal const      n = 15; type      mas = array [1..n] of integer;         var    m : mas;     i : integer;     procedure inic (var a : mas);     var    i : integer;     begin    for i : = 1 to n do     a[i] : = 0;     end;       procedure num (var a : mas);     var      i : integer;   begin     for i : = 1 to n do        a[i] : = i;     end;     procedure w (var a : mas);   var    i : integer;         begin    for i : = 1 to n do    writeln (m[i]);     readln ();     end; begin  inic (m);   num(m);   w(m);   end.