В программе Паскаль ввести два числа и вывести их в порядке возрастания

Question

В программе Паскаль ввести два числа и вывести их в порядке возрастания

Answer 1

   program les;
   var a,b:integer;
   begin
   writeln(' vedite 4icla ');
   readln(a,b);
   if a>b then
   begin
   writeln(b,' ' ,a);
   end;
   if a   begin
   writeln(a,' ',b);
   end;
   end.

Answer 2

program qf;

uses crt;

var x,y:integer;

begin

clrscr;

writeln('введи числa');

readln(x,y);

if x>y then writeln(y,x) else writeln(x,y);

readln;

end.