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 .
UHJvZ3JhbSBvcGRyYWNodDkgOwoKdmFyCglHZXRhbDEgLEdldGFsMiAgLEdldGFsMyAsa2xlaW5zdGUgLCBtaWRkZWwgLGdyb290c3RlOiBJbnRlZ2VyOwoKYmVnaW4KCVdyaXRlbG4gKCdHZWVmIGVlbiBoZWVsIGdldGFsICcpIDsKCVJlYWQgKEdldGFsMSkgOwoJV3JpdGVsbiAoJyBHZWVmIG5vZyBlZW4gaGVlbCBnZXRhbCAnKSA7CglSZWFkIChHZXRhbDIpIDsKICAgICAgICBXcml0ZWxuICgnIEdlZWYgbm9nIGVlbiBoZWVsIGdldGFsICcpIDsKCVJlYWQgKEdldGFsMykgOwoJSWYgR2V0YWwxPD1HZXRhbDIgVGhlbiBrbGVpbnN0ZSA6PUdldGFsMSBFbHNlIGtsZWluc3RlIDo9R2V0YWwgMiA7CglJZiBHZXRhbDM8PWtsZWluc3RlIFRoZW4ga2xlaW5zdGUgOj1HZXRhbDMgOyAKICAgICAgICBJZiBHZXRhbDE+PUdldGFsMiBUaGVuIGdyb290c3RlIDo9R2V0YWwxIEVsc2UgZ3Jvb3RzdGUgOj0gR2V0YWwyOwoJSWYgR2V0YWwzPj1ncm9vdHN0ZSBUaGVuIGdyb290c3RlIDo9R2V0YWwzIDsKCUlmIEdldGFsMTw9R2V0YWwyPD1HZXRhbDMgVGhlbiBHZXRhbDIgOj1taWRkZWwgOwoJSWYgR2V0YWwyPD1HZXRhbDM8PUdldGFsMSBUaGVuIEdldGFsMyA6PW1pZGRlbCA7CglJZiBHZXRhbDM8PUdldGFsMTw9R2V0YWwyIFRoZW4gR2V0YWwxIDo9bWlkZGVsIDsKCVdyaXRlbG4gKOKAmCBEdXMgZGUgdm9sZ29yZGUgaXMg4oCYIGtsZWluc3RlIOKAmGVu4oCZIG1pZGRlbCDigJhlbuKAmSBncm9vdHN0ZSkgOwplbmQuIAo=