uses crt;
const
  N = 30;
var
  i: integer;
  A: array [1..N] of integer;
begin
  clrscr;
  randomize;
  writeln('Source array:');
  for i:=1 to N do
  begin
    A[i]:=random(100);
    write(A[i],' ');
  end;

  writeln;
  writeln('Even numbers :');
  for i:=1 to N do
    if (A[i] mod 2) = 0 then
       write(A[i],' ');

  writeln;
  writeln('Odd numbers :');
  for i:=N downto 1 do
    if (A[i] mod 2) <> 0 then
       write(A[i],' ');

  readln;
end.

const NeedSum=17;
var n,i,j:integer;
a:array[1..100,1..100] of integer;
CheckSum,s:integer;
begin
  randomize;
  write('n=');
  readln(n);
  for i:=1  to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(4);
      if a[i,j]=2 then a[i,j]:=5;
      if a[i,j]=3 then a[i,j]:=11;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  s:=0;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
    begin
      CheckSum:=a[i,j]+a[i+1,j]+a[i,j+1]+a[i+1,j+1];
      if CheckSum=NeedSum then s:=s+1;
    end;
  writeln('Total number ',s);
end.

program one;                                                                 
 var
     S,S1,i:integer;                                                         
     n:string;                                                               
     k,k1:integer;                                                           
     c,c1:byte;                                                               

 begin   
                                                                   
   S:=0; S1:=0;
                                                               
 writeln('vvedite chislo, n=');                                               
 readln(n);                                                                   
                                                                             
 for i:=1 to length(n)/2 do begin val(N,k,c);  S:=S+k  end;                   
 for i:=length(n)/2+1 to length(n) do begin val(N,k1,c1); S1:=S1+k1  end;     
                                                                             
  if S=S1 then writeln(N,'-schastlivoe') else writeln(N,'-ne schastlivoe');   
                                                                             
  readln;                                                                     
  end.

const
  ArrayLength = 10000;

var
  SimpleNums: array [1..ArrayLength] of longword;
  N, k, i, j: longword;
  flag: boolean;

begin
  write('N = ');
  readln(N);
  writeln('Simple numbers:');
  write('2 ');
  SimpleNums[1]:=2;
  k:=1;
  for i:=3 to N do
  begin
    flag:=true;
    for j:=1 to k do
      if (i mod SimpleNums[j]) = 0 then
      begin
        flag:=false;
        break;
      end;

      if flag then
      begin
        inc(k);
        SimpleNums[k]:=i;
        write(i,' ');
      end;
  end;
  readln;
end.

var
  a, b, i: integer;
  hsum, ArMean: real;

begin
  ArMean:=0;
  for i:=1 to 50 do
  begin
    if i=3 then
    begin
      hsum:=(a+b)/2;
      b:=0;
    end;
    write('Number',i,'= ');
    if i=2 then
      read(b)
    else
      read(a);
    if (a>hsum) and (i>2) then
    begin
      ArMean:=ArMean+a;
      inc(b);
    end;
  end;
  ArMean:=ArMean/b;
  writeln('arithmetical mean is ',ArMean:8:3);
  readln;
end.

var
  Marks: array [1..1000] of integer;
  k, i, max, min, mxind, mnind: integer;
  index: byte;
  resm: real;

begin
  k:=0;
  repeat
    writeln('1. Add mark');
    writeln('2. Calculate');
    writeln('3. Exit');
    readln(index);
    if index = 1 then
    begin
      inc(k);
      write('Mark = ');
      readln(Marks[k]);
    end;
    if (index = 2) and (k<3) then
    begin
      writeln('Error. Count of marks < 3');
      index:=3;
    end;
  until index>=2;

  if index = 2 then
  begin
    max:=Marks[1];
    mxind:=1;
    min:=Marks[1];
    mnind:=1;
    resm:=Marks[1];
    for i:=2 to k do
    begin
      if Marks[i]>max then
      begin
        max:=Marks[i];
        mxind:=i;
      end
      else if Marks[i]<min then
      begin
        min:=Marks[i];
        mnind:=i;
      end;
      resm:=resm+Marks[i];
    end;

    resm:=(resm-Marks[mnind]-Marks[mxind])/(k-2);

    write('Result mark = ',resm:8:3);
    readln;
  end;

end.

     |1.0   0.9   0.8  ...  0.1|
     |0.9   0.9   0.8  ...  0.1|
     |0.8   0.8   0.8  ...  0.1|
     |...   ...   ...  ...  0.1|
     |0.1   0.1   0.1  ...  0.1|

uses crt;

const
  hDig: array [0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

var
  Num: longword;
  s: string;
  i: word;
begin
  clrscr;
  write('Number = ');
  readln(Num);
  s:='';
  while Num>0 do
  begin
    s:=s+hDig[Num and $F];
    Num:=Num shr 4;
  end;

  write('Hex number = ');
  for i:=Length(s) downto 1 do
    write(s[i]);

  readln;
end.

uses crt;

const
   m = 10;

var
  i, j: integer;
  D: array [1..m,1..m] of real;

begin
  clrscr;
  for i:=1 to m do
  begin
    D[i,1]:=0.1*(11-i);
    for j:=2 to m do
      if j>i then D[i,j]:=D[i,j-1]-0.1
      else D[i,j]:=D[i,j-1];
  end;

  for i:=1 to m do
  begin
    for j:=1 to m do
      write(D[i,j]:2:1,' ');
    writeln; 
  end;

  readln;
end.