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

program zz1;

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

begin

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

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

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

begin

k:=n mod 10;  // получаем заключительную цифру

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

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

end;

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

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

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

end.