Program opdracht9 ;

var
	Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;

begin
	Writeln ('Geef een heel getal ') ;
	Read (Getal1) ;
	Writeln (' Geef nog een heel getal ') ;
	Read (Getal2) ;
        Writeln (' Geef nog een heel getal ') ;
	Read (Getal3) ;
	If Getal1<=Getal2 Then kleinste :=Getal1 Else kleinste :=Getal 2 ;
	If Getal3<=kleinste Then kleinste :=Getal3 ; 
        If Getal1>=Getal2 Then grootste :=Getal1 Else grootste := Getal2;
	If Getal3>=grootste Then grootste :=Getal3 ;
	If Getal1<=Getal2<=Getal3 Then Getal2 :=middel ;
	If Getal2<=Getal3<=Getal1 Then Getal3 :=middel ;
	If Getal3<=Getal1<=Getal2 Then Getal1 :=middel ;
	Writeln (‘ Dus de volgorde is ‘ kleinste ‘en’ middel ‘en’ grootste) ;
end.