Построить блок схему
program gp;
uses crt;
var a,b,c,d,v: real;
begin
writeln('день недели');
readln(a);
writeln('время начала');
readln (b);
writeln('длина разговора');
readln(c);
writeln('стоимость минуты ');
readln(v);
if (b> =22) or (b< =8) then begin
if(a=6) or (a=7) then
d: =(c*v)-((c*v)*0/15);
if (a< 6) and (a> 0) then
d: =(c*v)-((c*a)*0.1);
writeln(d)
end;
end.
