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

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.