С клавиатуры вводится трехзначное число. Проверить, есть ли среди его цифр цифры кратные трем. Если Есть, товыдать значение этих цифр на экран. Если нет, то выдать на экран сообщение:"таких цифр нет".

var  i,d,n,k:integer;begin  Write('Введите трехзначное натуральное число: ');  Read(n);  k:=0;  for i:=1 to 3 do begin    d:=n mod 10;    if d mod 3=0 then begin      Inc(k);      Write(d,' ')      end;    n:=n div 10    end;  if k>0 then Write('- цифры, кратные трем')  else Write('Таких цифр нет')end.ПримерыВведите трехзначное натуральное число: 5699 6 - цифры, кратные тремВведите трехзначное натуральное число: 184Таких цифр нетЗамечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0.Если это не так, то замените условиеd mod 3 = 0на(d mod 3 = 0) and (d>0)