Оператор Case

Program Days;
        var
           x : integer;
        begin
             Write('Скажи мне какой сегодня день?');
             ReadLn(x);
             
             case x of
             1:Write('Понедельник, первый день недели');
             2:Write('Вторник, второй день недели');
             end;
        end.

Program Days;
        var
           x : integer; \\тип переменной, значение которой будем получать (для предложения надо будет string)
        begin
             Write('Скажи мне какой сегодня день?');
             ReadLn(x); \\вводим ту самую переменную
             
             case x of
             1:Write('Понедельник, первый день недели'); \\ в case пишем что делать при определенном значении
             2:Write('Вторник, второй день недели'); \\ в этом примере значения 1 и 2, и соответствующие действия
             end; \\то в случае с предложением просто, если строковая переменная имеет такое-то значении, то выводим то что надо вывести
        end.

var
           x : integer;
           s: string;
        begin
             WriteLn('Задайте вопрос:');
             ReadLn(s);
             if s='Какой сегодня день недели?' then x:=1 else x:=2;
             case x of
             1:Write('Понедельник');
             2:Write('Никакой=)');
             end;
        end.

WriteLn('Какой сегодня день недели?:');
             ReadLn(s);
             case x of
             Понедельник:Write('Да, вы правы');
             Вторник:Write('Нет, сегодня не вторник');

program days;
type
  day = (Ponedelnik,Vtornik);
var
  a : day;
  s : string;
begin
  writeln('Скажи мне какой сегодня день?');
  readln(s);
  if s='Понедельник' then a := Ponedelnik;
  if s='Вторник' then a := Vtornik;
  case a of
  Ponedelnik : writeln('Понедельник, первый день недели.');
  Vtornik : writeln('Вторник, второй день недели.');
  end;
  readln;

end.