To com um problema em criar esse algoritmo

Eu tenho que fazer um algoritmo que leia 3 variáveis numéricas e as coloque em ordem crescente com apenas 3 "se"ou "if" nem um "ou" e um "senao". (dica que o prof. deu: nem sempre o "leia" precisa ta na ordem com o "se" pode vir antes ou depois) O problema e que não consigo nem a pau, ainda to no começo do curso de técnico em Informatica o professor passou isso já perguntei até pra pessoas que tem faculdade de ciências da computação e não sabem. Mas meu professor disse que dá e a gente tem que fazer. detalhe precisa ser um visuALG eu até achei aqui mesmo um

program OrdemCrescenteProcedure;

procedure Trocar(var x,y:real);

..var aux:real ..begin aux:=x; x:=y; y:=aux; end;

var
..a,b,c, aux :real; {variaveis do programa}

begin
..{ler os valores}
..writeln('Digite o valor de "a", "b" e "c");
..readln(a,b,c)

..{ordenar valores (crescente de valor)}

..if a>b then Trocar(a,B);
..if b>c then Trocar(b,c);
..if a>b then Trocar(a,B);

..{exibir valores}

..writeln;
..writeln(' Valore em ordem: ',a,', ',b,', ',c);

..readln; {para dar um "pause" antes de encerrar}
end.

mas nao sei tranferir pro visual g