In pascal programming using the case statement write a pascal program to display the days of the week?

Answer 1

Here's a simple Pascal program that uses a case statement to display the days of the week based on user input:

program DaysOfWeek;
var
  day: Integer;
begin
  Write('Enter a number (1-7) for the day of the week: ');
  ReadLn(day);
  
  case day of
    1: WriteLn('Sunday');
    2: WriteLn('Monday');
    3: WriteLn('Tuesday');
    4: WriteLn('Wednesday');
    5: WriteLn('Thursday');
    6: WriteLn('Friday');
    7: WriteLn('Saturday');
  else
    WriteLn('Invalid input! Please enter a number between 1 and 7.');
  end;
end.

This program prompts the user for a number and uses a case statement to print the corresponding day of the week, handling invalid inputs as well.