program ideone;
// Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.). 
// Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal 
// и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
var
  c,d:integer;
 
    procedure P(x,y:integer);
    begin
        y:=x+1;
    end;
 
    procedure Q(x:integer; var y:integer);
    begin
        y:=x+1;
    end;
 
//    procedure R(var x,y:integer);
 //   begin
  //      y:=x+1;
   // end;
 
begin
c:=2; d:=0; P(sqr(c)+c,d); writeln(d); 
//c:=2; d:=0; Q(sqr(c)+c,d); writeln(d); 
//c:=2; d:=0; R(sqr(c)+c,d); writeln(d);    
end.

cHJvZ3JhbSBpZGVvbmU7Ci8vINCf0LXRgNC10LQg0LLQsNC80LggLSBXRUIt0YHRgNC10LTQsCDRgNCw0LfRgNCw0LHQvtGC0LrQuCBQYXNjYWxBQkMuTkVUICjQstC10YDRgdC40Y8gMS4wLCDQsNC/0YDQtdC70YwgMjAxMSDQsy4pLiAKLy8g0J7QvdCwINC+0YHQvdC+0LLQsNC90LAg0L3QsCDRgdC+0LLRgNC10LzQtdC90L3QvtC8INGP0LfRi9C60LUgUGFzY2FsQUJDLk5FVCwg0YHQvtCy0LzQtdGB0YLQuNC80L7QvCDRgSBUdXJibyBQYXNjYWwgCi8vINC4IERlbHBoaSBQYXNjYWwuINCf0YDQvtCz0YDQsNC80LzQsCDQt9Cw0L/Rg9GB0LrQsNC10YLRgdGPINC90LAg0YHQtdGA0LLQtdGA0LUsINCy0LLQvtC0LdCy0YvQstC+0LQg0L/QtdGA0LXQtNCw0LXRgtGB0Y8g0L/QviDRgdC10YLQuC4KLy8g0J/RgNC+0LPRgNCw0LzQvNGDINC80L7QttC90L4g0L7Qv9GD0LHQu9C40LrQvtCy0LDRgtGMINC4INGB0YHRi9C70LDRgtGM0YHRjyDQvdCwINC90LXQtSDQsiDQmNC90YLQtdGA0L3QtdGC0LUg0LIg0LLQuNC00LUKLy8gaHR0cDovL3AuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmMubmV0L1dERS8/ZmlsZT3QuNC80Y9f0L7Qv9GD0LHQu9C40LrQvtCy0LDQvdC90L7Qs9C+X9GE0LDQudC70LAucGFzCi8vINCX0LDRgNC10LPQuNGB0YLRgNC40YDQvtCy0LDQvdC90YvQtSDQv9C+0LvRjNC30L7QstCw0YLQtdC70Lgg0L/QvtC70YPRh9Cw0Y7RgiDQtNC+0L/QvtC70L3QuNGC0LXQu9GM0L3Ri9C1INCy0L7Qt9C80L7QttC90L7RgdGC0Lg6Ci8vINC00L7Qu9Cz0L7QstGA0LXQvNC10L3QvdC+0LUg0YXRgNCw0L3QtdC90LjQtSDRgdCy0L7QuNGFINC/0YDQvtCz0YDQsNC80LwsINCy0L7Qt9C80L7QttC90L7RgdGC0Ywg0YDQsNCx0L7RgtGLINGBINC/0LDQv9C60LDQvNC4IAp2YXIKICBjLGQ6aW50ZWdlcjsKCiAgICBwcm9jZWR1cmUgUCh4LHk6aW50ZWdlcik7CiAgICBiZWdpbgogICAgICAgIHk6PXgrMTsKICAgIGVuZDsKICAgIAogICAgcHJvY2VkdXJlIFEoeDppbnRlZ2VyOyB2YXIgeTppbnRlZ2VyKTsKICAgIGJlZ2luCiAgICAgICAgeTo9eCsxOwogICAgZW5kOwogICAgCi8vICAgIHByb2NlZHVyZSBSKHZhciB4LHk6aW50ZWdlcik7CiAvLyAgIGJlZ2luCiAgLy8gICAgICB5Oj14KzE7CiAgIC8vIGVuZDsKCmJlZ2luCmM6PTI7IGQ6PTA7IFAoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFEoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFIoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7ICAgIAplbmQu

ZnVuY3Rpb24gQ291bnRXb3Jkcyhjb25zdCBTOiBzdHJpbmcpOiBJbnRlZ2VyOwp2YXIKICBJOiBJbnRlZ2VyOwogIEluV29yZDogQm9vbGVhbjsKYmVnaW4KICBSZXN1bHQgOj0gMDsKICBJbldvcmQgOj0gRmFsc2U7CiAgCiAgZm9yIEkgOj0gMSB0byBMZW5ndGgoUykgZG8KICBiZWdpbgogICAgaWYgU1tJXSAmbHQ7Jmd0OyAnICcgdGhlbgogICAgYmVnaW4KICAgICAgaWYgbm90IEluV29yZCB0aGVuCiAgICAgIGJlZ2luCiAgICAgICAgSW5jKFJlc3VsdCk7CiAgICAgICAgSW5Xb3JkIDo9IFRydWU7CiAgICAgIGVuZDsKICAgIGVuZAogICAgZWxzZQogICAgICBJbldvcmQgOj0gRmFsc2U7CiAgZW5kOwplbmQ7CnZhcgogIFNlbnRlbmNlOiBzdHJpbmc7CiAgV29yZENvdW50OiBJbnRlZ2VyOwpiZWdpbgogIFNlbnRlbmNlIDo9ICcgINCf0YDQuNC80LXRgCAgINGB0YLRgNC+0LrQuCDRgSAgICDQu9C40YjQvdC40LzQuCDQv9GA0L7QsdC10LvQsNC80LggICc7CiAgV29yZENvdW50IDo9IENvdW50V29yZHMoU2VudGVuY2UpOwogIFNob3dNZXNzYWdlKCfQmtC+0LvQuNGH0LXRgdGC0LLQviDRgdC70L7QsjogJyArIEludFRvU3RyKFdvcmRDb3VudCkpOyAvLyDQktGL0LLQtdC00LXRgiA0CmVuZDs=

function CountWords(const S: string): Integer;
var
  I: Integer;
  InWord: Boolean;
begin
  Result := 0;
  InWord := False;
  
  for I := 1 to Length(S) do
  begin
    if S[I] <> ' ' then
    begin
      if not InWord then
      begin
        Inc(Result);
        InWord := True;
      end;
    end
    else
      InWord := False;
  end;
end;
var
  Sentence: string;
  WordCount: Integer;
begin
  Sentence := '  Пример   строки с    лишними пробелами  ';
  WordCount := CountWords(Sentence);
  ShowMessage('Количество слов: ' + IntToStr(WordCount)); // Выведет 4
end;