23010070.. Učitati 3 različita realna broja. Ispisati ih u rastućem redoslijedu na ekran.

Listing programa:

PROGRAM p23010070;
uses 
  wincrt;

var
a,b,c, temp: integer;
 begin
write('Unesi tri broja');
readln(a,b,c); 
writeln('Ulazni redoslijed ',a,' ',b,' ',c);

if a>b then
  begin
    temp:=a  ;
    a:=b         ;
    b:=temp;
  end;

if a>c then
  begin
   temp:=a;
   a:=c;
   c:=temp;
  end;

if b>c then
  begin
   temp:=b;
   b:=c;
   c:=temp;
  end;
  
writeln('Izlazni redoslijed: 'a,' ',b,' ',c);
end.

Ispis na ekranu:

Index