program phuongt;
uses crt;
  type E = array[1..100] of integer;
  var d, n, x: integer;
        s: string;
        a: longint;
        K: E;
{------------ Chuong trinh con --------------}
{-------- Giai thua --------}
function kt1(n: integer): longint;
begin
        kt1:=1;
        if n=0 then kt1:=1
        else kt1:=n*kt1*(n-1);
        write(kt1);
end;
{-------- Xau dao --------}
procedure kt2(s: string);
var i: integer;
begin
        for i:=length(s) downto 1 do write(s[i]);
end;
{-------- Dem so --------}
function kt3(n, x, d: integer; a: longint): longint;
begin
        while n<>0 do
        begin
                x:= n mod 10;
                a:=a*10+x;
                n:= n div 10;
                d:=d+1;
        end;
        kt3:=d;
        write(kt3);
end;
{-------- n so nguyen to --------}
procedure kt4(n: integer);
var i, p, j: integer;
begin
        for i:=2 to n do
        begin
                p:=0;
                for j:=1 to i do
                        if i mod j=0 then p:=p+1;
                        if p=2 then write(i:3);
        end;
end;
{-------- day so duong --------}
procedure kt5(var B: E);
var i, t: integer;
begin
        write('Nhap gioi han day so: '); readln(t);
        for i:=1 to t do
        begin
                write('B[', i, '] = '); readln(B[i]);
        end;
        writeln('Day so nguyen duong: ');
        for i:=1 to t do if B[i]>0 then write(B[i]:3);
end;
{--------- Chuong trinh chinh ---------}
begin
        clrscr;
        write('Nhap n = '); readln(n);
        write('Nhap xau s = '); readln(s);
        write('Giai thua: ');
        kt1(n);
        writeln;
        write('Xau dao: ');
        kt2(s);
        writeln;
        writeln('So N co ');
        kt3(n, x, a, d);
        write(' chu so');
        writeln;
        write('N so nguyen to dau tien: ');
        kt4(n);
        writeln;
        kt5(K);
        readln
end.