Pascal нужна ваша . посчитать стоимость 1 телеграммы каждое слово 90 копеек + за саму телеграмму 5р заранее .

Const
  cw=0.9;
  ct=5.0;
var
  n:integer;
begin
  Write('Введите количество слов в телеграмме: '); Readln(n);
  Writeln('Стоимость телеграммы составит ',ct+n*cw:0:2,' руб.')
end.

Тестовое решение:
Введите количество слов в телеграмме: 13
Стоимость телеграммы составит 16.70 руб.