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

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.

Program summadrobi; // это необязательная строчка с названием программы  var a, b, c, d, n, m: integer;   // это объявление 6-ти переменных целого типа для хранения данных begin  writeln ('сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей: '); // это вывод на экран текста a : = 2; b : = 5; c : = 3; d : = 7; // это присвоение значений в переменные из самой  // программы (ввод данных с клавиатуры отсутствует) writeln ('первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d); // это уже вывод обработанной информации на экран writeln ('теперь найдём сумму дробей '); n : = a*d; m : = c*b;   // это обработка данных перед выводом на экран writeln ('конечная несокращённая дробь равна: ', n+m, '/', b*d); // это вывод на экран конечного решения end. результат: сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей: первая дробь равна: 2/5 вторая дробь равна: 3/7 теперь найдём сумму дробей  конечная несокращённая дробь равна: 29/35