Напишите программу для того чтобы протестировать детей как они умеют считать?Показывается пример они считают в паскале!

var    n, i, r, sum, s: integer;   ms: array[1..100]of char; begin   randomize;   n := random(3, 7);   var ar := arrrandom(n, 1, 50);   for i := 1 to n - 1 do    begin     r := random(1, 2);      if(r = 1) then ms[i] := '+'      else ms[i] := '-' end;   s := ar[0];   write(ar[0], ' ');   for i := 1 to n - 1 do    begin     write(ms[i], ' ', ar[i], ' ');     if(ms[i] = '+') then s := s + ar[i]     else s := s - ar[i];   end;   write(' = ');   read(sum);   if(s = sum) then write('Правильно')    else write('Неправильно, правильный ответ : ', s); end.