var nedelya:array[1..7] of string;
var i:integer;
var a:string;

nedelya[1] := pon;
nedelya[2] := vt;
nedelya[3] := sr;
nedelya[4] := ch;
nedelya[5] := pya;
nedelya[6] := subb;
nedelya[7] := voskr;

begin

i:=random(1,7);
Writeln ('День номер ', i);
Write ('Это ');
Read (a);

if nedelya[i] = a then begin
ShowMessage('Вы правы')
end else begin
ShowMessage('Вы не правы! это '+nedelya[i])
end

end

>[color=blue]if[/color] b=1 [color=blue]then[/color][color=blue]begin[/color]
>___[color=blue]if[/color] a=pon [color=blue]then[/color] Writeln ([color=purple]'Вы правы !'[/color]);
>[color=blue]end else begin[/color]
>___writeln ([color=purple]'Вы не правы ! Это понедельник !'[/color]);

>___[color=green]//Если 1 условие не прошло, то проверяем второе[/color]
>___[color=blue]if[/color] b=2 t[color=blue]hen begin[/color]
>______if a=vt [color=blue]then[/color] Writeln ([color=purple]'Вы правы !'[/color]);
>___[color=blue]end else begin[/color]
>______writeln ([color=purple]'Вы не правы ! Это Вторник!'[/color]);
>______[color=green]//И здесь начинай так же проверять среду[/color]
>___[color=blue]end[/color]
>[color=blue]end[/color]

if b=1 then begin
if a=pon then Writeln ('Вы правы !');
end else begin
writeln ('Вы не правы ! Это понедельник !');

//Если 1 условие не прошло, то проверяем второе
if b=2 then begin
if a=vt then Writeln ('Вы правы !');
end else begin
writeln ('Вы не правы ! Это Вторник!');
//И здесь начинай так же проверять среду
end
end