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
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
//Free Pascal Compiler version 3.0.4+dfsg-22
var
  c,d:integer;
 
    procedure P(x:integer; var y:integer);
    begin
        y:=x+1;
    end;
 
    procedure Q(x:integer; var 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/0LDQv9C60LDQvNC4IAovL0ZyZWUgUGFzY2FsIENvbXBpbGVyIHZlcnNpb24gMy4wLjQrZGZzZy0yMgp2YXIKICBjLGQ6aW50ZWdlcjsKCiAgICBwcm9jZWR1cmUgUCh4OmludGVnZXI7IHZhciB5OmludGVnZXIpOwogICAgYmVnaW4KICAgICAgICB5Oj14KzE7CiAgICBlbmQ7CiAgICAKICAgIHByb2NlZHVyZSBRKHg6aW50ZWdlcjsgdmFyIHk6aW50ZWdlcik7CiAgICBiZWdpbgogICAgICAgIHk6PXgrMTsKICAgIGVuZDsKCmJlZ2luCmM6PTI7IGQ6PTA7IFAoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFEoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFIoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7ICAgIAplbmQu