Найдите произведение цифр заданного k-значного числа

Question

Найдите произведение цифр заданного k-значного числа

Answer 1

Vark, p : integer;
beginfor k := 0 to 10 dobeginp := k;p := k * k;writeln(p);end;end.

Comments

var
k, p : integer;

begin
for k := 0 to 10 do
begin
p := k;
p := k * k;
writeln(p);
end;
end.