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

написать программу определения стоимости разговора по телефону с учетом скидки 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.




Внимание, только СЕГОДНЯ!