Составить программу проверяющую верно ли утверждение что произведение цифр введенного...

Question

Составить программу проверяющую верно ли утверждение что произведение цифр введенного вами четырехзначного целого числа делится на 5 и не делится на вторую цифру числа.На экране должно быть сообщение верно или не верно. Паскаль плиз срочно 10 баллов.

Answer 1

begin

  var n:=ReadInteger('n=');

  var m:=(n div 1000) mod 10;  

  var p:=1;

  while n>0 do

  begin

  p*=n mod 10;

  n:=n div 10

  end;

  if (p mod 5 =0) and(p mod m<>0) then Print('Верно')

  else Print('Неверно')

end.