Цитата (Roman Novikov):

  showmessage('DateTimePicker1.date=' + floattostr(DateTimePicker1.date) + 
              ', CurDate=' + floattostr(CurDate) +
              ', DateTimePicker2.date=' + floattostr(DateTimePicker2.date));

if ((Trunc(CurDate) >= Trunc(DateTimePicker1.Date)) and (Trunc(CurDate) <= Trunc(DateTimePicker.Date))) and (Path <> '')
then ...

case Разница mod 100 of
  11..19: Label1.Caption:= 'дней';
else case Разница mod 10 of
       1:    Label1.Caption:= 'день';
       2..4: Label1.Caption:= 'дня';
     else
             Label1.Caption:= 'дней';
     end;
end;

function f2(n:integer):integer;
begin
  if n <= 0 then f2 := 1
   else f2 := n * f2(n-2)
end;

function f3(n:integer):integer;
  var i, p:integer;
begin
  p := 1;
  while n > 1 do begin
    p := p * n;
    n := n -2;
  end;
  result := p;
end;

function GetSum(E, X: Double): Double;
var
  N, D, R: Double; // числитель, знаменатель, член ряда
  Index: Integer;
begin
  Result:= X;
  Index:= 0;
  N:= 1;
  D:= X;
 
  repeat
    N:= N * (Index + 1); // 1, 1*3, 1*3*5... (числитель)
    D:= D * X * (Index + 2); // 2*x^x, 2*4*x^x^x, 2*4*6*x^x^x^x...
    R:= N / D; // член ряда
    Result:= Result + R; // сумма ряда
    Index:= Index + 2;
  until Abs(R) < E;
end;

function compareByName(Item1 : Pointer; Item2 : Pointer) : Integer;

if not ((SR.Name = \'.\') or (SR.Name = \'..\')) then FileList.Add(SR.Name);

if not (SR.Name = \'.\') and  not (SR.Name = \'..\') then FileList.Add(SR.Name);

if (SR.Name <> \'.\') and  (SR.Name <> \'..\') then FileList.Add(SR.Name);

 for i := 0 to image1.width-1 do
   for j := 0 to image1.height-1 do
      image1.canvas.pixels[i,j] := rgb(random(256),random(256),random(256));

double GetMult(const unsigned int n, const double a)
{
  double Result = a;
  for (int Index = 1; Index < n, Index++)
    Result *= (a + Index);
  return Result;
}

...
var
  x, y : array [1..N] of extended;
  dx1, dx2, dy1, dy2, r : extended;
...
  dx1 := x[2] - x[1];
  dx2 := x[3] - x[2];
  dy1 := y[2] - y[1];
  dy2 := y[3] - y[2];
  r := dx1*dy2 - dx2*dy1;
  if r > 0 then
    writeln('Против часовой стрелки')
  else if r < 0 then
    writeln('По часовой стрелке')
  else
    writeln('Отрезки лежат на одной прямой');
...

for (int i = 1; i < 100; i++) {
  if ((i + 1) == (2*i - 2)) {
    std::cout << "boys: " << i + 1 << ", girls: " << i << std::endl;
    return 0;
   }
}
std::cout << "Can't solve" << std::endl;
}

var
   F:TForm;
   p: TPoint;
begin
    if not Assigned(Form2) then
        F:=TForm2.Create(Self);
        {вот здесь прописывал расположение окна}
        p.Y := 126;
        p.X := 405;
        p := ClientToScreen(p);
        F.Top := p.Y;
        F.Left := p.X;
        F.Show;
end;

program p5828;
 
{$APPTYPE CONSOLE}
 
const
  RowCount = 4;
  ColCount = 7;
 
type
  TMatrix = array[0..RowCount - 1, 0..ColCount - 1] of Integer;
  TVector = array[0..RowCount - 1] of Integer;
 
procedure MakeMatrix(var X: TMatrix);
var
  Row, Col: Integer;
begin
  for Row:= 0 to RowCount - 1 do
    begin
      for Col:= 0 to ColCount - 1 do
        begin
          X[Row, Col]:= Random(100) - 50;
          Write(X[Row, Col]: 4);
        end;
 
      WriteLn;
    end;
end;
 
procedure GetMinRowElements(const X: TMatrix; var V: TVector);
var
  Row, Col, Min: Integer;
begin
  for Row:= 0 to RowCount - 1 do
    begin
      Min:= X[Row, 0];
 
      for Col:= 1 to ColCount - 1 do
        if X[Row, Col] < Min
          then Min:= X[Row, Col];
 
      V[Row]:= Min;
    end;
end;
 
var
  M: TMatrix;
  V: TVector;
  Index: Integer;
 
begin
  WriteLn(#13#10'  Source matrix:');
  MakeMatrix(M);
  GetMinRowElements(M, V);
 
  WriteLn(#13#10'  Vector of minimum row elements:');
  for Index:= 0 to RowCount - 1 do
    Write(V[Index]: 4);
 
  WriteLn;
  ReadLn;
end.