помогите пожалуйста по программированию заблаговременно спасибо

var len, day, priceForOneLetter: integer;

price: real;

begin

 priceForOneLetter:=2;

 writeln('Вычисление цены телеграммы.');

 writeln('Введите исходные данные:');

 write('Длина телеграммы (целое количество букв) -gt; ');

 readln(len);

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

 readln(day);

 price:=len*priceForOneLetter;

 if (day = 7) or (day = 6) then

 begin

   price *= 70/100;

   writeln('Предоставляется скидка 30%');

 end;

 writeln('Цена телеграммы: '+price);

end.