Написать даны три числа, вывести их на экран в порядке возрастания.

Program asd;
USES crt;
var a,b,c,m,m1,s:integer;
BEGIN
clrscr;
writeln('Vvedite chisla: ');
readln(a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
m1:=a;
if b>m1 then m1:=b;
if c>m1 then m1:=c;
s:=a+b+c-m1-m;
write(m,' ',s,' ',m1);
readln;
END.