!huutainguyen4559

 Cái này mik cũng mới học cũng ko bt đúng hay ko , nếu sai bạn thông cảm

program dz;
ues crt;
var a,b:longint;
procedure sosanh;
var min,max:longint;
begin
     if a>b then begin max:=a;min:=b;end
     else begin max:=b;min:=a;end;
     writeln(' So lon hon la : ',max);
     write(' So ba hon la : ',min);
end;
BEGIN
       clrscr;
       write(' Nhap a, b : ');readln(a,b);
       sosanh;
       readln
End.

_chúc bạn hcoj tốt_

uses crt;
var a,b:longint;
procedure kt(a,b:longint);
var max,min:longint;
begin
   max:=a;
   if b>max then max:=b;
   min:=a;
   if b<min then min:=b;
   writeln('Max: ',max);
   writeln('Min: ',min);
end;
begin
clrscr;
   write('Nhap a,b: '); readln(a,b);
   kt(a,b);
readln
end.