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

Program znanija;
var a, res:integer;
begin

res := 1;

write('Введите число: ');
readln(a);

while a>1 do
begin
res := res * (a mod 10);
a := a div 10;
end;

writeln('Произведение всех цифр = ', res);
end.