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

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

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.