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

Для начало нужно конкретное задание, Я так понимаю, что каждое введенное число должно быть умножено(на 8) и выведено, причем итерация должна быть исполнена 10 раз? И в твоей программе нет c.

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