Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>
5 - поля данных без рисунка, на графике это 4 - представление этих данных в графическом виде
Левым сверху рисунок нужно его раскрасить одну клетку чтоб похоже была на серидину снизу
Надеюсь я ответил на твой вопрос