Nguyễn Huy Minh

function ucln(a,b: longint): longint;
var r: longint;
begin
        while b>0 do
                begin
                r := a mod b;
                a := b;
                b := r;
                end;
        exit(a);
end;
begin
        readln(a,b);
        write(ucln(m,n));
end.

var m: longint;
procedure ptich(a: longint);
var i: longint;
begin
        i := 2;
        while i*i<=a do
                if a mod i = 0 then
                begin
                        write(i,#32);
                        a := a div i;
                end
                else
                        i := i +1;
        if a>1 then write(a);
end;
begin
        readln(m);
        write(ptich(m));
end.

var m,n: longint;
function nguyento(u:longint):boolean;
var j: longint;
begin
        if (u<=1) then exit(false);
        for j:=2 to trunc(sqrt(u)) do
        if u mod j=0 then
                exit(false);
        exit(true);
end;
begin
        readln(n);
        n := m+1;
        while not(nguyento(m)) do
                m := m+1; //inc(m);
        write(m);
end.

var a:array[1..10000007] of longint;
        n,i: longint;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                write(a[i],#32);
end.

var a: array[-7..1000000] of longint;
        n,i: longint;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                if (i mod 2 = 0) then write(a[i],#32);
end.

var a: array[-7..1000000] of longint;
        n,i: longint;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                if (sqrt(a[i])=trunc(sqrt(a[i]))) then write(a[i],#32);
end.

var a: array[-7..1000000] of longint;
        n,i,res: longint;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                if (a[i] mod 2 = 0) and (a[i] mod 3 <> 0) then
                        inc(res);
                        write(res);
end.

uses math;
var a: array[-7..1000000] of longint;
        n,i,rmin: longint;
begin
        readln(n);
        rmin := 1000000;
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                rmin := min(rmin,a[i]);
                write(rmin);
end.

uses math;
var a: array[-7..1000000] of longint;
        n,i,rmax,dem: longint;
begin
        readln(n);
        rmax := 0;
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                rmax := max(rmax,a[i]);
        for i := 1 to n do
        if a[i]=rmax then inc(dem);
        write(dem);
end.

uses math;
var a: array[-7..1000000] of longint;
        n,i,s: longint;
        tbc: real;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                s := s+a[i];
        tbc := s/n;
        write(s,#32,tbc:0:1);
end.

uses math;
var a: array[-7..100000] of longint;
        n,i,dem,s: longint;
        tbc: real;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                s := s+a[i];
        for i := 1 to n do
                tbc := (s)/n;
        for i := 1 to n do
                if a[i]>=tbc then
                inc(dem);
        write(dem);
end.

uses math;
var a: array[-7..100000] of longint;
        n,i,s,res: longint;
begin
        readln(n);
        res := 0;
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                res := a[i]+a[i+1]+a[i+2];
        s := 0;
        for i := 1 to n do
        begin
                if s<res then
                s := res;
        end;
        write(res);
end.

uses math;
var a: array[-7..100000] of longint;
        n,i,p: longint;
begin
        readln(n);
        p := 1;
        for i := 1 to n do
                read(a[i]);
        for i := 1 to n do
                if a[i]>a[i+1] then
                begin
                        p := 0;
                        break;
                end;
        if p=1 then
                write('true')
        else
                write('false');
end.

uses math;
var f: array[-7..100000] of longint;
        n,i: longint;
begin
        readln(n);
        f[1] := 1;
        f[2] := 1;
        for i := 3 to n do
                f[i] := f[i-1]+f[i-2];
        write(f[n]);
end.

uses math;
var a: array[-7..100000] of longint;
        n,i,t: longint;
begin
        readln(n);
        for i := 1 to n do
                read(a[i]);
        for i := 1 to (n div 2) do
                begin
                t := a[i];
                a[i] := a[n-i+1];
                a[n-i+1] := t;
                end;
        for i := 1 to n do
                write(a[i],#32);
end.

var m,n,i,j: longint;
        a: array[-7..3000, 7..3000] of longint;
begin
        readln(m,n);
        for i := 1 to m do
                begin
                for j := 1 to n do
                        write(a[i,j],#32);
                writeln();
                end;
end.

var s: string;
        p: longint;
begin
        readln(s);
        p := length(s);
        write(s,#32,p);
end.

var s1,s2: string;
        p: longint;
begin
        readln(s1,s2);
        p := pos(s1,s2);
        write(p);
end.

var s1,s2: string;
        res: longint;
begin
        readln(s1);
        readln(s2);
        res := 0;
        while pos(s1,s2)>0 do
        begin
                res := res+1;
                delete(s2,1,(pos(s1,s2)+length(s1)-1));
        end;
        write(res);
end.

var s1,s2,s: string;
begin
        readln(s1,s2);
        s := s1+s2;
        write(s);
end.

var s: string;
        i,res: longint;
begin
        readln(s);
        for i := 1 to length(s) do
        if ('0'<=s[i]) and (s[i]<='9') then
                inc(res);
        write(res);
end.

function xaudao(u:string): string;
var tam: string='';
        i: longint;
begin
        for i := 1 to length(u) do
                tam := u[i]+tam;
        exit(tam);
end;
var s: string;
begin
        readln(s);
        write(xaudao(s));
end.

function xaudao(u:string): string;
var tam: string='';
        i: longint;
begin
        for i := 1 to length(u) do
                tam := u[i]+tam;
        exit(tam);
end;
var s: string;
begin
        readln(s);
        if (s=xaudao(s)) then
                write(true)
        else
                write(false);
end.

var s: string;
        n,i,j: longint;
        t: char;
begin
        assign(input,'sxepxau.inp');
        assign(output,'sxepxau.out');
        reset(input);
        rewrite(output);
        readln(s);
        n := length(s);
        for i := 1 to n-1 do
                for j := i+1 to n do;
                        if s[i]>s[j] then
                        begin
                                t := s[i];
                                s[i] := s[j];
                                s[j] := t;
                        end;
        write(s);
        close(input);
        close(output);
end.

var s: string;
        i,res: longint;
begin
        readln(s);
        res := 0;
        for i := 1 to length(s) do
                if s[i]='a' then
                        res := res+1;
        write(res);
end.