Составте программу вычисления произведения чисел от 1 до 10 1*2*3*4* *10

Program Task;
Var i: Integer;
    p: LongInt;
Begin
    p := 1;
    For i := 1 To 10 Do
        p := p * i;
    WriteLn('Результат: ', p);
    ReadLn;
End.

Var i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.