min:=32767;
min_1:=32767;
repeat
  readln(in_int);
  if in_int<>0
    then if in_int<min
      then min:=in_int
      else if in_int<min_1
        then min_1:=in_int;
until in_int=0;

const
m:array [1..12] of string=('.....', '.....', '.....', .... );

readln(s);
val(s[1]+s[2],v,c);
writeln(m[v],' '+s[4]+s[5]+'.19'+s[7]+s[8]);

S:=0;
for j:=1 to N do
  begin
    S1:=0;
    for i:=1 to N do
      begin
        if a[i,j]<0 then
          begin
            S1:=0;
            break;
          end;
        S1:=S1+a[i,j];
      end;
    S:=S+S1;
  end;

min:=32767;
for i:=1 to N do
  begin
    for j:=i downto 1 do
      S:=S+abs(a[j,i-j+1]);
    if min>S then min:=S;
  end;

uses crt;
type
 Matrix = array[1..50, 1..50] of integer;
var
 A: Matrix;
 m, n, i, j: byte;

procedure GenMatrix;

begin
  clrscr;
  randomize;
  write(' Введите количество строк: ');
   readln(m);
  write('Введите количество столбцов:  ');
   readln(n);
  for i:=1 to m do
  for j:=1 to n do
  A[i, j]:=random(50)-25;
end;

procedure PrintMatrix;

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


begin
  GenMatrix;
  PrintMatrix;
  writeln('Нажмите [Enter] для завершения программы');
  readln;
end.

write(A[i,j]);

procedure String;

begin
  max:=0;
  colt:=0;
  ns:=0;
  for i:=0 to 50 do
    begin
     for j:=0 to 50 do
      begin
       if a[i,j]> -5 and a[i,j]<5 then colt:=colt+1;
      end
       if colt>man then
       begin
       ns:=i;
       max:=colt;
       end;
       colt:=0;

       end;

for j:=0 to 50 do
    begin
    temp:=a[1,j]; 
    a[1,j]:=a[ns,j];
    a[ns,j]:=temp;
    end;

uses crt;

var  f: text;
     ch: char;
     s, code: integer;
begin
 assign(f,'D:\file.txt');
  reset(f);

    read(f,ch);
     case ch of
      '0'..'9':;
     else
      begin
       write('не цифра!');
       readln;
       halt;
       end;
     end;

if ( s mod 2=0) then
      writeln('Число четное')
     else
      writeln('Число не четное');

 readln;
end.

var
    F: text;
    ch: char;
    s, code: integer;

BEGIN

   assign (F, 'file.txt');
    reset (F);

     read(F);
      while not Eof(F) do
       begin
         while not Eoln(F) do
      if (s mod 3=0) then
        writeln('число делется на 3')
      else
        writeln('число не делется на 3');
        close(F);
        readln;
        end;
END.

del