Помогите соствить в паскале,очень срочноС клавиатуры вводился пятизначное число.Вывести на

include lt;iostreamgt;

void main()

int x;

std::cingt;gt;x;

int sum = 0;

int prod = 1;

while(xgt;0)

 int y = x%10;

 sum = sum + y;

 prod = prod * y;

 x=x/10;

if(sum%10 == 0 amp;amp; prod lt; 100)

 std::coult;lt;"Yes"lt;lt;endl;

else:

 std::coutlt;lt;"No"lt;lt;endl;

Pascal

var n,digit,sum,prod:integer;

begin

 readln(n);

sum = 0;

prod = 1;

 while (ngt;0) do

 begin

  digit:=n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n:=n div 10;

 end;

if(sum mod 10=0)and(prodlt;100)

begin

writeln("да");

end

else

begin

writeln("Нет"):

end;

Как то так

end.