var i,k:integer;

begin;

k:=0;

for i:=1 to 6 do

k:=k+i;

writeln(k);

end.

Program Words;

var F, N, R: integer;

begin

write('Введите число букв');  

readln(N);  

F:=l;  

R:=1;

 while R<=N do  

begin

F:=F*R;  

R:=R+1  

end;

write (F);

end.