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

program gt;var n,a:integer;s:real;beginreadln(n);readln(a);case a of1..5:s:=n*2;6:s:=10.4;7:s:=10.8;end;writeln(s);end.n-число минутa-день неделиесли case не проходили то можно сделать ifprogram gt;var n,a:integer;s:real;beginreadln(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.