viết chương trình tính tích các số là ước của 20 giúp m với

P=1
for i in range(1,21) :
    if i %2==0 :
        P=P*i

`pascal`
print("tích các số là ước của 20là: ",P)

uses crt ;
 var i:longint  ;
      P: longint ;
    begin
     clrscr ;
     P:=1;
     for i :=1 to 20 do
       if i mod 2= 0 
          then P := P* i;
    writeln('tich cac so la uoc 20 la: ',P) ;
      readln
        end .