Условный оператор Опции

[Гость]

Помогите мне,пожалуйста ,решить эту задачу. если можно, то с пояснением.
Иван часто звонит в Москву. Написать программу, помогающую Ивану определять стоимость разговора, зная количество минут разговора, стоимость одной минуты и день недели, в который был звонок (в субботу и воскресенье скидка на разговор 10%).

Рекомендуемый экран после запуска программы:
Введите стоимость 1 минуты: 3,5
Введите количество минут: 7
Введите день недели: суббота
Стоимость разговора с учётом скидки: 22,05 руб.

[Артемий]

var
 onemin,countmin: real;
 TheDay: String;
 Sum: Real;
begin
 writeln('The price of one min:');
 readln(onemin);
 writeln('Amount of time:');
 readln(countmin);
 writeln('The day');
 readln(TheDay);

  if (TheDay = 'Sunday') or (TheDay = 'Monday') then
   sum := (onemin*countmin) - (countmin / 100 * 10) else
    sum := onemin*countmin;

 writeln('Summa ravna ',sum:8:2);
 readln
end.

Сообщение отредактировано: Артемий - 12.05.2007 21:01