codice:
 Program prova;
uses crt;
var a,b,c,x:integer;

begin
clrscr;
writeln('inserire i valori a, b, c e il programma li ordinerà in ordine decrescente');
readln(a,b,c);
if c > b
then
 begin;
  x:=b;
  b:=c;
  c:=x;
 end
else
if b > a
 then
  begin
   x:=a;
   a:=b;
   b:=x;
  end
 else
if (a>b) and (b>c)
then
writeln(' ',a,' ',b,' ',c,' ')
else
if c > b
then
 begin;
  x:=b;
  b:=c;
  c:=x;
 end
else
if b > a
 then
  begin
   x:=a;
   a:=b;
   b:=x;
   writeln(' ',a,' ',b,' ',c,' ')
  end;
readln;
end.
io l'ho fatto così, ma non funziona!!! e poi dovrei inserire una condizione che mi dica se possono essere lati di un triangolo.


chiunque possa darmi una mano...