Пример использования инструкции case для организации меню — Pascal(Паскаль)

program menu1;
var
     vybor:integer;
begin
     writeln('1 - Максимальная температура');
     writeln('2 - Минимальная температура');
     writeln('3 - Средняя температура');
     writeln;
     writeln('Введите номер задачи и нажмите <Enter>');
     write('Ваш выбор -> ');
     readln(vybor);
     case vybor of
         1:   begin
                   { вычисление максимальной температуры }
              end;
         2:   begin
                   { вычисление минимальной температуры }
              end;
         3:   begin
                   { вычисление средней температуры }
              end;
     end;
end.