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

Спасибо,можешь на писать программу на листочке и сфоткать а то че-то так не понятно.

var st:real;    mn:integer;    d:1..7;beginwrite('Введите стоимость 1 минуты в рублях st=');readln(st);write('Введите продолжительность разговора в минутах mn=');readln(mn);repeatwrite('Введите номер дня недели d=');readln(d);until d in [1..7];case d of1..5:st:=st*mn;else st:=st*mn*0.8;end;write('Стоимость разговора=',st:0:2);readlnend.