Viết chương trình tính và đưa ra màn hình tích S= 2.4.6…n cho tới khi n>=10 thì dừng

uses crt;

var n,i,s: longint;

begin

clrscr;

s:=1;

repeat

i:=i+2;

s:=s*i;

until n>=10;

writeln (‘tong la: ‘,s);

readln;

end.