entah

if (angka > 5) then
                        begin
                        writeln('angka lebih dari 5');
                        readln;
                        end
                else if (angka >4 ) then
                        begin
                        writeln('angka lebih dari 4');
                        readln;
                        end
                else if (angka >3 ) then
                        begin
                        writeln('angka lebih dari 3');
                        readln;
                        end
                else if (angka >2 ) then
                        begin
                        writeln('angka lebih dari 2');
                        readln;
                        end
                else if (angka >1 ) then
                        begin
                        writeln('angka lebih dari 1');
                        readln;
                        end
                else
                begin
                writeln('angka kurang dari 1');
                readln;
                end;