Bài 1:
var vl,n:int64;
a,b,c:int64;
begin
    readln(n);
    a := n;
    b := n+1;
    c := n+2;
    if a mod 3=0 then
    begin
        a := a div 3;
        if odd(a) then
            b := b div 2
    else
            a := a div 2;
    end;
    if b mod 3=0 then
    begin
        b := b div 3;
        if odd(b) then
            a := a div 2
    else
            b := b div 2;
    end;
    if c mod 3=0 then
    begin
        c := c div 3;
        if odd(c) then
            a := a div 2
    else
            c := c div 2;
    end;
    vl := ((a mod 2018)*(b mod 2018)*(c mod 2018)) mod 2018;
    write(vl);
    readln;
end.

Bài 2:
uses crt;
var n:byte;
    i,j,m,o:int64;
    b:boolean;
    k:int64;
function dx(x:int64):boolean;
var s:string;
    i:byte;
begin
    str(x,s);
    for i:=1 to (length(s) div 2) do
    if s[i]<>s[length(s)-i+1] then exit(false);
    exit(true);
end;
function lt10(x:byte):int64;
var lt:int64;
    i:byte;
begin
    lt:=1;
    for i:=1 to x do lt:=lt*10;
    lt10:=lt;
end;

begin
    clrscr;
    readln(n);
    i:=(lt10(n)-1);
    j:=(lt10(n)-1);
    m:=(lt10(n-1));
    o:=i;
    b:=true;
    while (i>m) and b  do
    begin
       while (j>=m) and b do
       begin
          k:=i*j;
          if dx(k) then
          begin
              writeln('Voi N = ',n);
              writeln(i,' x ', j,' = ',i*j);
              write(k,' mod 1337 = ',((i mod 1337)*(j mod 1337)) mod 1337);
              b:=false;
          end;
          dec(j);
       end;
       dec(i);
       j:=o;
    end;
    readln;
end.