Could you mind telling me what can I do for the following question?

[turbomen]

Could you mind telling me what can I do for the following question?

To write a skeleton program for the assignment. It should have a menu system with at least 5 options. The menu keeps repeating after each procedure is called. When one of the procedures is called just return a message to the screen saying what this procedure will do: ie “this is task 1”

The menu options are:
1 Task 1
2 Task 2
3 Task 3
4 Task 4
0 Exit menu system

(Hint: use a case statement)

Cheers,

[FlamingClaw]

I tryed to explain everything.....

program solution;

var choice:Integer;{the user choice}
{
let's create the 5 procedures
these procedures does nothing,only
called by the main program...
}


{0,}
procedure task_zero;
begin
     writeln('0. procedure is exiting from the main program...');
     writeln('press enter to continue...');
end;

{1,}
procedure task_one;
begin
     writeln('1. procedure is running...');
     writeln('press enter to continue...');
     readln;
end;

{2,}
procedure task_two;
begin
     writeln('2. procedure is running...');
     writeln('press enter to continue...');
     readln;
end;

{3,}
procedure task_three;
begin
     writeln('3. procedure is running...');
     writeln('press enter to continue...');
     readln;
end;

{4,}
procedure task_four;
begin
     writeln('4. procedure is running...');
     writeln('press enter to continue...');
     readln;
end;
{
ok,the procedures are made,so call them in the main program
used the case statement.... 'till the user presses the zero
}
begin
     repeat
     {
     let's write the menu to the screen
     }
     writeln('MENU OPTIONS ARE:');
     writeln('0. Exit Menu system');
     writeln('1. Task one');
     writeln('2. Task two');
     writeln('3. Task three');
     writeln('4. Task four');

     {
     ask a number from the user,from zero to four (0..4)
     }
     writeln('Select a number between 0 and 4.');
     write('Your choice is: ');
     readln(choice);{here,catch the answer...}
     writeln;
     {
     and last,analyze the variable's value..
     }
     case (choice) of
     0:begin
          task_zero; {call them by its name!}
          writeln;
       end;
     1:begin
          task_one;
          writeln('Procedure ended.');
          writeln;
       end;
     2:begin
          task_two;
          writeln('Procedure ended.');
          writeln;
       end;
     3:begin
          task_three;
          writeln('Procedure ended.');
          writeln;
       end;
     4:begin
          task_four;
          writeln('Procedure ended.');
          writeln;
       end;
     else writeln('please,between 0 and 4.');
     end;{of case}

     until choice = 0;


     readln;
end.
{
created by FlamingClaw 2009.08.27.
}