var
  n, i : integer;
  fact, mult : longint;
begin
  write('Enter n ');
  readln(n);
  mult := 1;
  fact:=1;
  for i:=1 to n+1 do
  begin
    fact:=fact*mult;
    mult:=mult+2;
  end;
  write('(2*n+1)!! = ', fact);
  readln;
end.

uses crt;
var
 x1, x2, x3, x4, y1,
 y2, y3, y4, k1, k2,
 b1, b2, xc, yc : real;
begin
  clrscr;
  writeln('Line1 (x1,y1) (x2,y2)');
  write('x1 = ');
  readln(x1);
  write('y1 = ');
  readln(y1);
  write('x2 = ');
  readln(x2);
  write('y2 = ');
  readln(y2);
  writeln('Line2 (x3,y3) (x4,y4)');
  write('x3 = ');
  readln(x3);
  write('y3 = ');
  readln(y3);
  write('x4 = ');
  readln(x4);
  write('y4 = ');
  readln(y4);

  if x2-x1 = 0 then k1:=0
  else k1:=(y2-y1)/(x2-x1);

  if x4-x3 = 0 then k2:=0
  else k2:=(y4-y3)/(x4-x3);

  if k1<>k2 then
  begin
    b1 := -(k1*x1 - y1);
    b2 := -(k2*x3 - y3);
    xc := (b1-b2)/(k2-k1);
    yc := (k2*b1-k1*b2)/(k2-k1);
    write('These two straight lines meet cross at point (',xc:4:1,', ',yc:4:1,')');
  end
  else write('These two straight lines don''t cross');
  readln;
end.

function max:byte;
const
  m:array [1..5,1..5] of byte = ((1,8,8,8,8),
                                              (2,1,8,8,8),
                                              (3,4,1,8,8),
                                              (5,6,7,1,8),
                                              (0,0,0,0,1));
var
  max,j,i,z:byte;
begin
  max:=m[5,1];
  z:=1;
    for i:=2 to 5 do
      for j:=1 to z do
      begin
        if m[i,j]>max then max:=m[i,j];
        inc(z);
      end;
end;

begin
write (max);
readln;
end.

function max:byte;
const
  m:array [1..5,1..5] of byte = ((1,8,8,8,8),
                                              (2,1,8,8,8),
                                              (3,4,1,8,8),
                                              (5,6,7,1,8),
                                              (0,0,0,0,1));
var
  mx,j,i,z:byte;
begin
  mx:=m[5,1];
  z:=1;
    for i:=2 to 5 do
    begin
      for j:=1 to z do
        if m[i,j]>mx then mx:=m[i,j];
      inc(z);
    end;
  max := mx;
end;

begin
write (max);
readln;
end.

program EasyCrypt;
uses crt;

procedure shifr(f1,f2:string);
var
  fin, fout: text;
  symb: char;
begin
  Assign(fin,f1);
  Assign(fout,f2);
  reset(fin);
  rewrite(fout);
  while not EOF(fin) do
  begin
    read(fin,symb);
    if symb in ['a'..'y'] then
       symb:=CHR(ORD(symb)+1)
    else if symb='z' then symb:='a';
    write(fout,symb);
  end;
  close(fout);
end;

procedure deshifr(f2,f3:string);
var
  fout, fcheck: text;
  symb: char;
begin
  Assign(fout,f2);
  Assign(fcheck,f3);
  reset(fout);
  rewrite(fcheck);
  while not EOF(fout) do
  begin
    read(fout,symb);
    if symb in ['b'..'z'] then
       symb:=CHR(ORD(symb)-1)
    else if symb='a' then symb:='z';
    write(fcheck,symb);
  end;
  close(fcheck);
end;

begin
  clrscr;
  shifr('c:\inputf.txt','c:\outputf.txt');
  deshifr('c:\outputf.txt','c:\check.txt');
  write('Files sucefful written. Press any key.');
  readln;
end.

function max(const m:array [1..5,1..5] of byte):byte;

uses crt;

var
  i, j : integer;
  x : real;

function pow(num: real; exp1: real):real;
var
  i: integer;
  tmp : real;
begin

  if exp1<>0 then
  begin
      tmp:=exp(ln(num)*exp1);
      if exp1<0 then tmp:=1/tmp;
  end
  else tmp:=1;
  pow:=tmp;
end;

function f(x: real; n: integer): real;
var
  k: integer;
  tmp: real;
begin
  tmp:=0;
  for k:=1 to n do
    tmp:=tmp+exp(pow((pow(x,k-1)),1/k))+sqrt(pow(x,k));
  f:=sqrt(x)+1/9*tmp;
end;

begin
  clrscr;
  for i:=10 to 15 do
  begin
    x:=0.6;
    repeat
      writeln('n = ',i,'   x = ',x:3:2,' f = ',f(x,i):10:5);
      x:=x+0.25;
    until x>1.1;
  end;
  readln;
end.

uses crt;
const
  BoxFDDCnt = 12; //Дискет в коробке
  CaseFDDCnt = 12; // Коробок в ящике
  FDDCost = 11.5;
  FDDBoxCost = 114.5;
  FDDCaseCost = 1255.0;

var
  N, m, FDD, BoxFDD, CaseFDD: integer;

begin
  clrscr;
  write('Floppy count N = ');
  readln(N);
  CaseFDD := N div (CaseFDDCnt*BoxFDDCnt);
  BoxFDD := (N - CaseFDD*CaseFDDCnt*BoxFDDCnt) div BoxFDDCnt;
  FDD := N - CaseFDD*CaseFDDCnt*BoxFDDCnt - BoxFDD*BoxFDDCnt;
  writeln(CaseFDD,' FDD Cases, ',BoxFDD,' FDD Boxes, and ',FDD,' FDD''s');
  write('Cost = ',CaseFDD*FDDCaseCost+BoxFDD*FDDBoxCost+FDD*FDDCost:10:2,'RUR');
  readln;
end.

function f(x:real):real;
begin
  if x <= -2 then
     f:= -x-3
  else if (x>-2) and (x<=0) then
     f:= x+1
  else if (x>0) and (x<=2) then
     f:= -x+1
  else if x>2 then
     f:= x-3;
end;

n:=1;
P:=1;
z:=1;
k:=ln(2);
repeat
  z:=exp(k/n);
  P:=P*z;
  inc(n);
until z<=1.00001;

 n:=3;
 X:=5;
 Y:=X;
 for i:=1 to 4 do
  Y:=exp(ln(abs(Y+1.5))/n);
 Y:=Y*sqr(n)/2;

program lol;
Uses crt;
var m1,m2,d1,d2,y1,y2: integer;
begin
Writeln('Введите первую дату');
Readln(d1,m1,y1);
Writeln('Введите вторую дату');
Readln(d2,m2,y2);
If d1+1=d2
then
begin
if m1=m2
then
begin
if y1=y2
then
begin
Writeln('Даты последовательны');
Readln;
end else
Writeln('Даты не следуют');
Readln;
end;
end;
end.

s1:='65536';
s2:='4096';
write(Divide(s1,s2));