program q175490;
var a,b,c: Real;
begin
        Write('a='); ReadLn(a);
        Write('b='); ReadLN(b);
        Write('c='); ReadLn(c);
        If((a<b)and(b<c))then
         WriteLn('Неравенство a<b<c выполняется')
        else WriteLn('Неравенство a<b<c не выполняется');
        WriteLn('Для завершения нажмите ENTER...');
        ReadLn;
end.

uses crt; {подключаем модуль crt}
{максимальная размерность}
const nMax = 50;
      mMax = 50;
{объявляем матрица(двумерный массив)}
var Arr : array[1 .. nMax, 1 .. mMax] of Integer;
    N, M, I, J : Integer;
{Начало}
BEGIN
clrscr;
randomize; {для генератора псевдослучайных чисел}

 write('Введите значение N: ');
  read(N);
 write('Введите значение M: ');
  read(M);
 
 {цикл заполнения матрицы случайными числами}
 For I := 1 to N do
  For J := 1 to M do
   begin
      Arr[I][J] := Random(10);
   end;

 writeln;
 writeln('Матрица  ',N,'*',M);
 writeln;

 {цикл вывода матрицы}
 For I := 1 to N do
  begin
     For J := 1 to M do
     write(Arr[I][J],' ');
     writeln;
  end;

 writeln;

 write('Введите значение I: ');
  read(I);
 write('Введите значение J: ');
  read(J);

 writeln;
 writeln('Значение Arr[',I,'][',J,'] = ',Arr[I][J]);
 writeln;

 write(J,'-ый столбец: ');
 writeln;

 {цикл вывода столбца}
 For I := 1 to N do
  begin
     writeln;
     write(Arr[I][J]);
  end;

readkey;
END. {конец}