tuankiet65

{This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation, either version 3 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

tuankiet65

{Copyright Ho Tuan Kiet@tuankiet65@gmail.com; GNU GPL 3.0}
program ron;
uses crt;
var a: array[1..4000000] of int64;
    w, x, y, z, k, i, i2, tg: longint;
begin
 clrscr;
 write('Nhap w: ');
 readln(a[1]);
 write('Nhat x: ');

tuankiet65

{This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation, either version 3 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

tuankiet65

{This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation, either version 3 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 

tuankiet65

5
ABbCcc
Good luck in the Facebook Hacker Cup this year!
Ignore punctuation, please :)
Sometimes test cases are hard to make up.
So I just go consult Professor Dalves

tuankiet65

program music;
uses crt;
var n, author, tone, path, tmp: string;
    t: text;
    hz, time, i: longint;
begin
 clrscr;
 write('Enter input path: ');
 readln(path);
 assign(t, path);

tuankiet65

mkdir viwikipedia
cd viwikipedia
echo "========================================================================"
echo "======================== viwiki dumps download ========================="
echo "========================================================================"
wget -r -np -nH -R "viwiki-latest-pages-meta-history.xml.bz2" http://dataset2.wikimedia.org/viwiki/latest/

tuankiet65

program bt1;
uses crt;
var n: longint;
    i, b, e: int64;
begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 b:=1;
 e:=b*10-1;

tuankiet65

program bt2;
uses crt;
var n: int64;
    tong, nchr: longint;
begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 while n<>0 do begin
  nchr:=n mod 10;

tuankiet65

program string_reverse;
uses crt;
var t, tout: text;
    s, s2: widestring;
    i: longint;
begin
 clrscr;
 assign(t, './input.txt');
 reset(t);
 assign(tout, './ketqua.txt');