Viết chương trình tính tích của các số từ 1 đến 35 in ra màn hình tích đó ( dùng câu lệnh While.. do và For... to.. do) nhanh giúp e vs ạ

Program Hotboy ;

Uses crt; 

Var i,s : longint;

Begin

S:=1;

For i:=1 to 35 do 

S:=S*i;

Writeln('tich  tu 1 den 35 la',s);

Readln

End.

Cách dùng câu lệnh for...to....do :

Uses crt;

Var  i, S : Longint;

Begin clrscr;

S :=1;

For i := 1 to 35 do S := S*i ;

Writeln('Tich cua cac so tu 1 den 35 la :', S );

Readln

End.

Cách dùng câu lệnh While....do :

Uses crt;

Var  i, S : Longint;

Begin clrscr;

S :=1;

While i <= 35 do

Begin

i:= i+1 ; S:= S*i;

End;

Writeln('Tich cua cac so tu 1 den 35 la :', S );

Readln

End.