Ответ:

program ideone;

uses SysUtils;

function WordsCount(s: string): integer;

var

 i, count: Integer;

begin

 count := 0;

 for i := 1 to Length(s) do

 begin

   if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))

   then inc(count);

 end;

 WordsCount := count;

end;

var

 a: string;

 count: Integer;

 isUrgent : Integer;

 cost: Double;

begin

   writeln('Введите строку A: ');

read(a);

count := WordsCount(a);

writeln('Посылка срочная? Если да, введите 1, иначе 0: ');

read(isUrgent);

cost := count * 2;

if (isUrgent = 1) then cost := 1.2*cost;

writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));

end.