Впаскале.найти произведение всех цифр заданного четырехзначного числа.

Var
n,ed,des,sot,tis:integer;
S:real;
Begin
Readln(n);
ed:=n mod 10;
des:=n div 10 mod 10;
sot:=n div 100 mod 10;
tis:=n div 1000 mod 10;
S:=ed*des*sot*tis;
Writeln(s);
end.