Вычислите произведение натуральных чисел от 1 до 8 var s, r, n: integer begin n: =8 p: =1

Program Primer;
var
P,i: Integer;
begin
P:=1;
for i:=1 to 8 do
P:=P*i;
WriteLn('Произведение чисел Р=',P);
end.