Решить с использованием таблиц в красной, синей, желтой и белой вазах стоят цветы: розы, лилии, гвоздики и тюльпаны. известно, что тюльпаны и розы не в красной вазе. ваза с лилиями стоит между желтой и вазой с гвоздиками. в белой - не лилии и не тюльпаны. синяя ваза стоит между белой и вазой с розами. в какой вазе находится каждые из цветов?

Таблица в вложении.
Розы в Желтом.
Лилии в Красном.
Гвоздики в Белом.
Тюльпаны в Синем.

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2

#include <iostream>
#include <math.h>
using namespace std;
void main()
{
float p, a, b, c, L, M, H, R_op, R_vp;
cout << "a="; cin>>a;
cout << "b="; cin>>b;
cout << "c="; cin>>c;
p=(a+b+c)/2; //найдём полупериметр
H=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c)); // найдём длину высоты треугольника
M=(1/2)*sqrt(2*a*a+2*b*b-c*c); //найдём длину медианы треугольника
L=(2*sqrt(a*b*p*(p-c)))/(a+b); // найдём длину биссектрисы треугольника
R_op=(a*b*c)/(4*sqrt(p*(p-a)*(p-b)*(p-c))); // найдём радиус описанной окружности треугольника
R_vp=sqrt(((p-a)*(p-b)*(p-c))/p); // найдёи радиус вписанной окружности в треугольник
cout << "Dlina visoti= " << H << endl;
cout << "Dlina mediani= " << M << endl;
cout << "Dlina bissektrisi= " << L << endl;
cout << "Rad.op.okr.= " << R_op << endl;
cout << "Rad.vp.okr.= " << R_vp << endl;
system("PAUSE >> VOID");
}