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.