Дано трехзначное число.найти произведение его цифр.составить на языке паскаль (программу) желательно на тетрадьном листе.

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger()).ToString().Select(x->x.ToDigit()).Aggregate(Real(1),(x,y)->x*y));
end.

Var
a,com:integer;
begin
Readln(a);com:=1;
while (a>0) do begin
com:= com* (a mod 10);
a:=a div 10;
end;
writeln(com);
end.