var
b:integer;
a:string;
pon:='понедельник';
vt:='вторник';
sr:='среда';
ch:='четверг';
pya:='пятница';
subb:='суббота';
voskr:='воскресенье';
//Выводится случайное число от 1 до 7 , пользователь должен написать
//название дня недели соответствующий цифре , все это зациклено
begin
write ('Вы увидите число , напишите название дня недели ');
writeln ('соответствующее этому числу ');
b:=random(1,7);
Writeln ('День номер ', b);
Write ('Это ');
Read (a);
if b=1
then
begin
if a=pon then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это понедельник !');
if b=2
then
begin
if a=vt then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это вторник !');
if b=3
then
begin
if a=sr then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это среда !');
if b=4
then
begin
if a=ch then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это четверг !');
if b=5
then
begin
if a=pya then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это пятница !');
if b=6
then
begin
if a=subb then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это суббота !');
if b=7
then
begin
if a=voskr then Writeln ('Вы правы !');
end
Else writeln ('Вы не правы ! Это воскресенье !');
end.