uses crt;
var
  mas: array[0..1000] of integer;
  mmax, mmin, msum, mcount, i : integer;
begin
 clrscr;
 i:=0;
 while mas[i]<>0 then
 begin
 writeln('M[', i , ']= ');
 read(mas[i]);
 inc(i);
 end;
 mcount:=i-1;
 i:=0; msum:=0; mmax:=0; mmin:=mas[0];
 while mas[i]<>0 then
  begin
  msum:=msum+mas[i];
  if trunc(mas[i]/3)=0 then
     begin
       if mas[i]>mmax then mmax:=mas[i];
       if mas[i]<mmin then mmin:=mas[i];
     end;
  inc(i);
 end;
 writeln('Сумм: ',msum);
 writeln('Макс: ',mmax);
 writeln('Мин: ',mmin);
 writeln('Кол: ',mcount);
 readkey;
end.

Program Over;
  Uses CRT;
  Var I,K,J,S,MIN,MAX : INTEGER;
                  A,B : Array[1..20] Of INTEGER;
  Function Minimum(MIN,X : INTEGER) : INTEGER;
    Begin
      If X<Min Then
        Minimum:=X
      Else
        Minimum:=MIN;
    End;
  Function Maximum(MAX,X : INTEGER) : INTEGER;
    Begin
      If X>MAX Then
        Maximum:=X
      Else
        Maximum:=MAX;
    End;
Begin
  Clrscr;
  Writeln('Vvedite massiv');
  Writeln;
  For I:=1 To 20 Do
    Begin
      Write('A[',I,']=');
      Readln(A[I]);
    End;
  {poisk indeksa 0}
  For I:=1 To 20 Do
    Begin
      If A[I]=0 Then
        K:=I; {slaboe mesto}
    End;
  Writeln;
  Writeln('Nomer nulevogo K=',K);
  {videlenie elementov kratnih 3 v massiv B}
  J:=1;
  S:=0;
  For I:=1 To K-1 Do
    If A[I] Mod 3 = 0 Then
      Begin
        B[J]:=A[I];
        J:=J+1;
      End
    Else;
  Writeln('Kratnie 3');
  Writeln;
  MAX:=B[1];
  MIN:=B[1];
  {Vivod massiva B}
  For I:=1 To J-1 Do
    Begin
      Writeln('B[',I,']=',B[I]);
      S:=S+B[I];
      MAX:=Maximum(MAX,B[I]);
      MIN:=Minimum(MIN,B[I]);
    End;
  Writeln;
  Writeln('Summa S=',S);
  Writeln('MIN=',MIN);
  Write('MAX=',MAX);
  Readln;
End.

repeat
inc(i);
......
until A[i]=0;

 while mas[i]<>0 then
begin
writeln('M[', i , ']= ');
read(mas[i]);
inc(i);
end;

Program Sort;
  Uses CRT;
  Var A,B : Array[1..20] Of INTEGER;
      I,MAX,MAX1,C,N,K : INTEGER;
 Function Maximum(MAX,X : INTEGER) : INTEGER;
    Begin
      If X>MAX Then
        Maximum:=X
      Else
        Maximum:=MAX;
    End;
Begin
  K:=0;
  Clrscr;
  Writeln('Ishodnii massiv');
  Writeln;
  {vvod,vivod massiva}
  For I:=1 To 20 Do
    Begin
      A[I]:=Random(99);
      Writeln('A[',I,']=',A[I]);
    End;
  MAX:=A[1];
  Repeat
    {max}
    For I:=1 To 20-K Do
      MAX:=Maximum(MAX,A[I]);
    {nomer max}
    For I:=1 To 20-K Do
      If MAX=A[I] Then
        N:=I
      Else;
    {meniaem mestami}
    C:=A[20-K];
    A[20-K]:=MAX;
    A[N]:=C;
    K:=K+1;
  Until K=20;
 { Writeln('N=',N);
  Writeln('MAX=',MAX);}
  Writeln;
  Writeln('Novii massiv');
  Writeln;
  For I:=1 To 20 Do
    Writeln('A[',I,']=',A[I]);
  Writeln;
  Writeln('Programmu razrabotal Chuvstvin M.B; PT0502');
  Readln
End.

var
  I1: integer;

.......................

for k:=0 to 19 do
begin
   MAX:=A[1];
   I1:=1;
   for i:=2 to 20-k do
      if A[i]>MAX then
      begin
         MAX:=A[i];
         I1:=i;
      end;
    A[I1]:=A[20-k];
    A[20-k]:=MAX;
end;

program Num2Str;
uses crt;

const
  A: array[0..9, 1..3] of string =
  (('', '', ''),
    ('сто ', '', 'один '),
    ('двести ', 'двадцать ', 'два '),
    ('триста ', 'тридцать ', 'три '),
    ('четыреста ', 'сорок ', 'четыре '),
    ('пятьсот ', 'пятьдесят ', 'пять '),
    ('шестьсот ', 'шестьдесят ', 'шесть '),
    ('семьсот ', 'семдесят ', 'семь '),
    ('восемьсот ', 'восемдесят ', 'восемь '),
    ('девятьсот ', 'девяносто ', 'девять '));
  B: array[0..9] of string =
    ('десять ', 'одинадцать ', 'двенадцать ',
     'тринадцать ', 'четырнадцать ', 'пятнадцать ',
     'шестнадцать ', 'семнадцать ', 'восемнадцать ','девятнадцать ');

var
  i, InputNum: integer;
  Numbers: array [1..3] of integer;
  res: string;
begin
  clrscr;
  textcolor(2);
  write('Введите число [0..1000]: ');
  textcolor(white);
  readln(InputNum);
  textcolor(2);
  write('Введено число ');
  if (InputNum<0) or (InputNum>1000) then writeln('введенное число вне допустимого диапазона.')
  else if InputNum=0 then writeln('нуль')
  else if InputNum=1000 then writeln('тысяча')
  else
  begin
    Numbers[1]:=InputNum div 100;
    Numbers[2]:=(InputNum div 10) - Numbers[1]*10;
    Numbers[3]:=InputNum - (Numbers[1]*100 + Numbers[2]*10);

    if Numbers[2]<>1 then
      res:=A[Numbers[1],1]+A[Numbers[2],2]+A[Numbers[3],3]
    else
      res:=A[Numbers[1],1]+B[Numbers[3]];

    textcolor(white);
    write(res);

  end;


  readln;
end.