Составьте программу, которая находит произведение цифр заданного четырехзначного числа

Var a,s,d,f:integer; Begin Writeln('четырехзначное число,s'); a:=0; a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10); Writeln ('s'); End.