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

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.

 

    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.

Уже отвечал, но все же такое решение актуальнее:   var  ar: array[1..10] of integer; max,min,i,kmax,kmin: integer; begin randomize; max: =0; min: =1000; for i: =1 to 10 do begin    ar[i]: =random(1000)+1;     if (ar[i] > max) then      begin max: =ar[i]; kmax: =i; end        else if (ar[i] < min) then begin min: =ar[i]; kmin: =i;   end;     write(ar[i],' '); end; writeln(); if (kmax > kmin) then for i: =kmin+1 to kmax-1 do write(i,' ')      else if (kmax < kmin) then for i: =kmax+1 to kmin-1 do write(i,' '); end. p.s. в решении выше есть далеко ни одна ошибка ; )

Var  ar: array[1..10] of integer; max,min,i,kmax,kmin: integer; begin randomize; max: =0; min: =1000; for i: =1 to 10 do begin  ar[i]: =random(1000)+1;   if (ar[i] > max) then     begin max: =ar[i]; kmax: =i; end       else if (ar[i] < min) then begin min: =ar[i]; kmin: =i; end;   write(ar[i],' '); end; writeln(); if (kmax > kmin) then for i: =kmin+1 to kmax-1 do write(i,' ')     else if (kmax < kmin) then for i: =kmax+1 to kmin-1 do write(i,' '); end.