for...to...do:
uses crt;
var n,i:integer; A:longint;
begin
clrscr;
A:=1;
for i:=1 to 10 do A:=A*i;
write('A=',A);
readln
end.
while...do
uses crt;
var n,i:integer; A:longint;
begin
clrscr;
A:=1; i:=1;
while i<=10 do
begin
A:=A*i;
i:=i+1;
end;
write('A=',A);
readln
end.