Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям. вид экрана: вычисление стоимости разговора по телефону (2р. - 1мин) введите исходные данные длительность разговора (целое число минут) 3 день недели ( 1-пон 7-воскр)? 6 предостовляется скидка 20% стоимость разговора 4.80р

Program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.

n-число минут
a-день недели
если case не проходили то можно сделать if
program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.