Question

Подскажите, что не так сделал? Почему программа не умножает c на a?
var p,a,i:integer;
begin
p:=8;
for i:=1 to 10 do
begin
writeln ('Введите двузначное число');
readln (a);
p:=p*a;
end;
readln (p);
end.