uses crt;
var m1,n1,k1,m2,n2,k2,m3,n3,k3,kq,t:byte;
---------------------------------------------------
Function max(a,b:integer):integer;
Begin
If a>b then max:=a else max:=b;
End;
-------------------------------------------
Function min(m,n:integer):integer;
Begin
If m<n then min:=m else min:=n;
End;
---------------------------------------
begin

clrscr;
   readln(m1,n1,k1);
   readln(m2,n2,k2);
   read(m3,n3,k3);
Kq:=100;
T:=max(m1,max(n2,k3));
kq:=min(t,kq);
T:=max(m1,max(n3,k2));
kq:=min(t,kq);
T:=max(n1,max(m2,k3));
kq:=min(t,kq);
T:=max(n1,max(m3,k2));
kq:=min(t,kq);
T:=max(k1,max(m2,n3));
kq:=min(t,kq);
T:=max(k1,max(m3,n2));
kq:=min(t,kq);
Write('KQ la: ',kq);

   readl

Chúc bn học tốt!

uses crt;

var 
  m1, n1, k1, m2, n2, k2, m3, n3, k3, kq, t: byte;

begin
  clrscr;
  readln(m1, n1, k1);
  readln(m2, n2, k2);
  read(m3, n3, k3);

  kq := 100;

  t := m1;
  if n2 > t then t := n2;
  if k3 > t then t := k3;
  if t < kq then kq := t;

  t := m1;
  if n3 > t then t := n3;
  if k2 > t then t := k2;
  if t < kq then kq := t;

  t := n1;
  if m2 > t then t := m2;
  if k3 > t then t := k3;
  if t < kq then kq := t;

  t := n1;
  if m3 > t then t := m3;
  if k2 > t then t := k2;
  if t < kq then kq := t;

  t := k1;
  if m2 > t then t := m2;
  if n3 > t then t := n3;
  if t < kq then kq := t;

  t := k1;
  if m3 > t then t := m3;
  if n2 > t then t := n2;
  if t < kq then kq := t;

  Write('KQ la: ', kq);

  readln;
end.