program ppp16;
       uses crt;
       var
       n:integer;
       k:integer;
       s:real;
       label endp;
       label loop;
             begin
             clrscr;
       writeln('-Begin-');
               write('n =');readln(n);
       writeln;
               writeln('n =',n);
               s:=1;
               k:=1;
loop:              if n=1 then goto endp
                      else
                          k:=k+1;
                          n:=n-1;
                          s:=s*k;
                          goto loop;
endp:               writeln('n! = s =',s);
              writeln('-End-');
end.

s:=1;
               k:=1;
loop:              if n=1 then goto endp
                      else
                          k:=k+1;
                          n:=n-1;
                          s:=s*k;