Var st:real; mn:integer; d:1..7; begin 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.
mn:integer;
d:1..7;
begin
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.