uses crt;
var a:array[1..3,1..3] of real;   
i,j: byte;   
min, max: real;
begin
   {Очистка экрана}
   clrscr;   
   {Заполнение массива}
   writeln('Vvodite elementy matricy: ');
   for i:=1 to 3 do
   for j:=1 to 3 do readln(a[i,j]);    
   {Нахождение min, max}
   min:=a[1,1];
   max:=a[1,1];
   for i:=1 to 3 do
   for j:=1 to 3 do
    begin
     if a[i,j]<min then min:=a[i,j];
     if a[i,j]>max then max:=a[i,j];
    end;
{Вывод min, max}
   writeln('Minimum: ',min:5:2);
   writeln('Maximum: ',max:5:2);
{Задержка до нажатия любой клавиши}
   readkey;
end.