70 баллов отдала... Оооооочень срочно, решите в среде паскаль

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!№1begin  var n:=ReadInteger('Введите натуральное число:');  if n<1 then Writeln('Число не является натуральным')  else begin    var s:=0;    while n>0 do (s,n):=(s+n mod 10,n div 10);    if s=10 then Writeln('Верно, что сумма цифр числа равна 10')    else Writeln('Неверно, что сумма цифр числа равна 10')    endend.ПримерВведите натуральное число: 50311Верно, что сумма цифр числа равна 10№2begin  var n:=ReadInteger('Введите натуральное число:');  if n<1 then Writeln('Число не является натуральным')  else begin    var a:=new integer[10];    var good:=False;    while n>0 do begin      var i:=n mod 10;      a[i]+=1; n:=n div 10;      if a[i]>1 then Good:=True      end;    if Good then begin      Write('Цифры, встречающиеся больее одного раза: ');      for var i:=0 to 9 do        if a[i]>1 then Print(i);      Writeln      end    endend.ПримерВведите натуральное число: 15365123Цифры, встречающиеся больее одного раза: 1 3 5