Задача 1. С оператора выбора case of реализовать алгоритм: Программа получает число от 1 до 7 и возвращает название дня недели.
Задача 2. В программу вводятся 5 чисел, после чего она выводит сообщение: «Введите 1, чтобы рассчитать сумму чисел. Введите 2, чтобы рассчитать произведение чисел. Введите 3, чтобы рассчитать среднее арифметическое». Напишите программу, которая работает соответственно приведённому алгоритму.

латинские прописные буквы (А, В, С, ..., Х, У, Z);

латинские строчные буквы (а, b, с, ..., x, у, z);

арабские цифры (0, 1, 2, ..., 7, 8, 9);

специальные символы (знак подчёркивания; знаки препинания; круглые, квадратные и фигурные скобки; знаки арифметических операций и др.).

В качестве неделимых элементов (составных символов) рассматриваются следующие последовательности символов:

:= (знак операции присваивания);

>= и <= (знаки ≥ и ≤ );

(* и *) (начало и конец комментария).

⚠️⚠️⚠️Для обозначения констант, переменных, программ и других объектов используются имена — любые отличные от служебных слов последовательности букв, цифр и символа подчёркивания, начинающиеся с буквы или символа подчёркивания.

⚠️⚠️⚠️

Прописные и строчные буквы в именах не различаются.

⚠️⚠️⚠️

 const     
z = 30; // максимально число слов  
var   
s,w : string;   
n,p,i,j,l : integer;   
words : array [1..z] of string;   
kw : array [1..z] of integer;   
r : boolean;    
begin 
writeln ('введите строку'); 
readln (s); 
writeln ('укажите кол-во повторений'); 
readln (n);   
l := Length(s); 
p := 1; 
w := '';    
 for i := 1 to l do       
 if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then   
   w := w + s[i]    
    else     
begin   
  for j := 1 to p do   
   if w = words[j] then 
      begin   
      kw[j] := kw[j] +1;   
     r := true;     
   end;        
      if not r then   
    begin   
      p := p +1;   
      words[p] := w; 
       kw[p] := kw[p] +1;     
   end;    
    w := '';   
  r := false;   
      end;   
      for i := 1 to p do 
  if kw[i] > n then 
  writeln (words[i]);      
      end.