Написать программу в паскале котрая расставляет три числа в порядке возрастания

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

program p1;

uses crt;   // это выводит окно.

var kub, i, j : integer;     //integer - целый тип

begin

  for i: =-5 to 7 do begin     //от -5 до 7

  kub: =1;       //куб числа делаем 1-ей, т.е. обновляем значение, чтобы не

                    //   перемножать все кубы

    for j: =1 to 3 do   begin     // от 1 до 3 . это и есть наш "возвадитор" в куб

      kub: = kub*i;       // i - это наше число

      end;    

      writeln(kub);   //выводим куб числа

      end;

     

      end.

Напишу на С++, но алгоритм один и тот же

bool flag = true; // bool - переменная которая принимает только true или false;

int number;

int sum;

int index;

double sr;

while(flag){  // Цикл который выполняется до тех пор пока flug = true;

cin >> number; // Вводим число

if(number == 0) flag = false; // Как только флаг будет равен с 0, мы заканчиваем выполнять цикл

sum=sum+number; // Ищем суму и каждый раз её увеличиваем на то число, которое ввели

index=index+1; // Увеличиваем количество введенных элементов

}

sr = sum/index; // Суму делим на количество чисел для того чтобы найти среднее арифметическое

cout << "Сума: " << sum; // Выводим суму

cout << endl // Пробел в С++(не обязательно)

cout << "Среднее арифметическое: " << sr; // Выводим среднее арифметическое