Написать программу определения стоимости разговора по телефону с учётом скидки 20%, предоставляемой по субботам и воскресеньям. Входные данные: Sm(стоимость минуты разговора), M (число минут), Day (день недели - 1...7). Выходные данные: S (стоимость разговора). Ниже представлен вариант выполнения программы Вычисление стоимости телефонного разговора Введите исходные данные Стоимость минуты разговора, руб. 1 Длительность разговора (целое количество минут) 6 День недели (1-понедельник, ... 7-воскресенье) 7

var M, Day : integer; Sm, S : real;beginwriteln('Вычисление стоимости телефонного разговора');writeln('Введите исходные данные');write('Стоимость минуты разговора, руб. ');readln(Sm);write('Длительность разговора (целое количество минут) ');readln(M);write('День недели (1-понедельник, ... 7-воскресенье) ');readln(Day);S:=Sm*M;if (Day=6)or(Day=7) then writeln('Стоимость разговора с учетом скидки = ',S*0.8) else writeln('Стоимость разговора = ',S);end.Пример:Вычисление стоимости телефонного разговораВведите исходные данныеСтоимость минуты разговора, руб. 3.2Длительность разговора (целое количество минут) 6День недели (1-понедельник, ... 7-воскресенье) 7Стоимость разговора с учетом скидки = 15.36