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

var len, day, priceForOneLetter: integer;

price: real;

begin

 priceForOneLetter:=2;

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

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

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

 readln(len);

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

 readln(day);

 price:=len*priceForOneLetter;

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

 begin

   price *= 70/100;

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

 end;

 writeln('Стоимость телеграммы: '+price);

end.