Вопрос, который вызвал трудности

Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program zadacha_4;
var
Time, Day, Summa:integer;
begin
writeln(‘вычисление стоимости разговора по телефону’);
write(‘количество минут‘);
readlnTtime);
write(‘день недели‘);
write(‘(1-понедельник, …,7-воскресенье‘);
readln(Day);
Summa:=2.3*Time;
if (Day=6)or(Day=7)
 then begin writeln (‘представляется скидка 20%’);
Summa:=Summa*0.8;
end;
writeln(‘стоимость разговора’,Summa:8:2,’руб’);
 readln;
end.