Дано натуральное число. Определить сумму его цифр, больше пяти — Pascal(Паскаль)

var
  n, n1: longint;
  sum: integer;
 
begin
  readln(n);// вводим натуральное число
  repeat
    n1 := n mod 10;
    if n1 > 5 then sum := sum + n1;
    // если цифра больше пяти, то оно входит в сумму чисел,
    // которые нужно посчитать
    n := n div 10;
  until n = 0;
  writeln(sum);
end.