关于PASCAL，送分

Question

是作业题吧？由小到大输出
program bithreenum(input,output);
  var
   a,b,c,d:int;
begin
   write('input a,b,c');
   readln(a,b,c);
   if a>b then
 begin
   d:=a;
   a:=b;
   b:=d;
 end;
if a>c then
 begin
   d:=a;
   a:=c;
   c:=d;
 end;
if b>c then
   begin
     d:=b;
     b:=c;
     c:=d;
   end;
writeln('output thre numbers:',a,b,c)
end.
  
  

Answer 1

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;var
  i,i1,i2,i3,itmp:integer;
beginreadln(i1,i2,i3);
 if i1 > i2 then i1 := i2;
 if i1>i3 then i1:=i3;
 writeln('min value:',i1);  // Insert user code here
end.

Answer 2

program test ;
{$APPTYPE CONSOLE}
uses SysUtils,math;var
  a,b,c,temp:integer;
beginreadln(a,b,c);
temp := min(min(a,b),c);
writeln('min value:',temp);
readln ;
end.