Составить программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям — Pascal(Паскаль)

program vremia;
uses crt;
var   i,n,min,sek:byte;
       stoi,opl:double;
begin
writeln('Введите стоимость 1-й минуты разговора в рублях.');
readln(stoi);
writeln('Введите номер дня недели(Понедельник - 1;Вторник - 2 .. Воскресенье - 7).');
readln(i);
writeln('Введите время разговора(формат: минуты секунды).');
readln(min,sek);
case i of
1..5:opl:=min*stoi+sek*stoi/60;
6..7:opl:=0.8*(min*stoi+sek*stoi/60);
end;
writeln('За разговор, длительностью ', min ,':', sek,',');
writeln('нужно заплатить ', opl:0:2,' руб.');
readln;
end.

program vremia;
uses crt;
var   i,n,min,sek:byte;
       stoi,opl:double;
begin
 clrscr;
 write('Stoimost'':');
 readln(stoi);
 write('Den'' nedeli (1-7):');
 readln(i);
 write('Vremya (MIN SEC):');
 readln(min,sek);
 case i of
 1..5:opl:=min*stoi+sek*stoi/60;
 6..7:opl:=0.8*(min*stoi+sek*stoi/60);
 end;
 writeln('Itogo: ',opl:0:2,' rub.');
 readln;
end.