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