На обработку данных поступает натуральное число не превышающее 10000000000. Нужно написать программу, которая находит сумму цифр числа меньших 6, если таких нет, то выводится "нет"

program zz1;

var s, n, k, p:int64; / / задаем переменные целого типа

begin

write (' введите натуральное число не превышающее 10000000000 ');

read (n); / / вводим с клавиатуры число

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

if k < 6 then s:=s + k;

n:=n div 10; / / отбрасываем ее

end;

if s = 0 / / проверяем, если нашлись две одинаковые

then writeln (' таких нет ') / / выводим один ответ

else writeln (' сумма цифр числа меньших 6 = ', s); / / иначе, выводим другой ответ

end.