Подскажите, что не так сделал? Почему программа не умножает 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.

и дело не в том, что программа не умножает. Программа умножает, но не выводит значения, т.к. Нет оператора write(ln) или print. Ошибка состоит и в том, что у тебя оператор readln читает значение p вне цикла, тогда введенное число будет заменено этим оператором.