Вычисление стоимости телефонного разговора с учетом скидки, предоставляемой по субботам и воскресеньям- Pascal(Паскаль)

program razgovor;

var
     Time:integer; { длительность разговора }
     Day:integer;  { день недели }
     Summa:real;   { стоимость разговора }

begin
     write('Длительность разговора');
     write('(целое кол-во минут) ->');
     readln(Time);

     write('День недели');
     write(' (1-понедельник,..,7-воскресенье)-> ');
     readln(Day);

     Summa:= 150*Time;
     if (Day = 6) OR (Day = 7)
         then Summa:=Summa*0.8;

     writeln('Стоимость разговора:',Summa:8:3);
end.