Delphi Instrukcja Wyboru IF

[S0NNIA]

witam uprzejmie jestem początkującą programistką mam małe pytanko odnośnie sugerowanych rad na internecie wzglendem programu Konsolowego pisanego w Delphi :

 

 

program ProjectsA;

 

{$APPTYPE CONSOLE}

 

var

dupa:byte;

 

begin

 

writeln('Projects A ');

writeln('TEST Konstrukcja if :');

 

readln(dupa);

 

if dupa<10 then writeln('test one');

 

if dupa>10 then writeln('test one');

 

if dupa>100 then writeln('test two');

 

if dupa=1 then writeln('test tree');

 

readln;

 

end.

 

 

jak przebudować program by :

1 po włączeniu i wyborze zmiennej ( np : 1 czy 111 ) zawsze na konsoli wyświetliła się tylko jedna odpowiedż nie kilka na raz

[woBniaR]

if dupa<10 then writeln('test one')
else
if dupa>10 then writeln('test one')
else
if dupa>100 then writeln('test two')
else if dupa=1 then writeln('test tree');