Помогите с задачками Опции

[Alexander]

1. Составить блок-схему определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.
2. Составить блок-схему, которая реализует пользовательское меню (меню - это список, из которого необходимо сделать выбор), пункты которого содержат фамилии Ваших друзей. При выборе некоторой фамилии появляется адрес и телефон.


Помогите Сделать блок схему (желательно в Visio) и написать программу... Не понимаю как работать с CASE..
Заранее спасибо..))

[Lapp]

Показывай свои наработки. Поможем.

[Alexander]

Показывай свои наработки. Поможем.

Это для 1ой ,а как сделать для второй я не могу понять

Код

Program DAY;
    Var D: byte;
      Begin

   Write ('Введите номер дня недели');

   Readln ( D );

   Case D of
   1: writeln ( '1руб./мин' );
   2: writeln ( '1руб./мин' );
   3: writeln ( '1руб./мин' );
   4: writeln ( '1руб./мин' );
   5: writeln ( '1руб./мин' );
   6: writeln ('0.8руб/мин' );
   7: writeln ('0.8руб/мин' );
   End;
      End.