Question

Am nevoie urgenta de rezilvarea acestei probleme in pascal va rog.....,,Scrieti un program care citeste valorile A,B,C valori intregi si afisati numerele lor in ordine descrescatoare''.

Answer 1

program p1;
var a,b,c,aux:integer;
begin
readln(a,b,c);
if b<c then begin
aux:=b;
b:=c;
c:=aux;
enl.p.d;
if a<b then begin
aux:=a;
a:=b;
b:=aux;
end;
writeln(a,b,c);
end.