Question

Scrieți un program în Pascalcare afișează în ordine crescătoare 2 numere​

Answer 1

program ordonare;

var a,b,t:integer;

procedure ord 2(var a,b:integer);

begin

if a>b then begin t:=a, a:=b; b:=t; end

end;

begin

write ('a='); read (a);

write ('b='); read (b);

ord 2(a,b);

writeln(a,' ',b);

end