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

uses crt;

var st:real;

   mn:integer;

   d:1..7;

begin

clrscr;

write('Введите стоимость 1 минуты в рублях st=');

readln(st);

write('Введите продолжительность разговора в минутах mn=');

readln(mn);

repeat

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

readln(d);

until d in [1..7];

case d of

1..5:st:=st*mn;

else st:=st*mn*0.8;

end;

write('Стоимость разговора=',st:0:2);

readln

end.