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