Помогите пожалуйста написать программу)))
Даны три числа, вывести их на экран в порядке возрастания.

Program asd;
USES crt;
var a,b,c,m,m1,s:integer;
BEGIN
clrscr;
writeln(Vvedite chisla: );
readln(a,b,c);
m:=a;
if bif cm1:=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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.