program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myarr : array of integer;
  i, n, count : integer;

function myfunc(arg : integer) : boolean;
begin
  if (arg mod 3 = 0) and (arg mod 4 = 0) then myfunc := true
  else myfunc := false;
end;


begin
  writeln('Razmernost massiva?');
  readln(n);
  setlength(myarr, n);
  count := 0;
    for i := 0 to n - 1 do
    begin
      writeln('Vvedite element ', i + 1);
      readln(myarr[i]);
        if myfunc(myarr[i]) then inc(count);
    end;
  writeln(count);
  readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

var
  a : array [0..2] of TPoint;
  arrsides : array [0..2] of extended;
  i : integer;

procedure GetLength(p1, p2 : TPoint; var res : extended);
begin
  res := sqrt(sqr(p2.X - p1.X) + sqr(p2.Y - p1.Y));
end;

function GetPerry(side1, side2, side3 : extended) : extended;
begin
  GetPerry := side1 + side2 + side3;
end;

begin
    for i := 0 to 2 do
    begin
      writeln('Vvedite koordinaty ', i, ' vershiny (x, y):');
      readln(a[i].X, a[i].Y);
    end;
  GetLength(a[0], a[1], arrsides[0]);
  GetLength(a[1], a[2], arrsides[1]);
  GetLength(a[2], a[0], arrsides[2]);
  writeln('Perimetr: ', GetPerry(arrsides[0], arrsides[1], arrsides[2]));
  readln;
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  myarr : array of integer;
  i, n, count : integer;
  r : boolean;


procedure myproc(arg : integer; var res : boolean);
begin
  if (arg mod 3 = 0) and (arg mod 4 = 0) then res := true
  else res := false;
end;


begin
  writeln('Razmernost massiva?');
  readln(n);
  setlength(myarr, n);
  count := 0;
    for i := 0 to n - 1 do
    begin
      writeln('Vvedite element ', i + 1);
      readln(myarr[i]);
      myproc(myarr[i], r);
        if r then inc(count);
    end;
  writeln(count);
  readln;
end.