fork download
  1. program ideone;
  2. // Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.).
  3. // Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal
  4. // и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
  5. // Программу можно опубликовать и ссылаться на нее в Интернете в виде
  6. // http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
  7. // Зарегистрированные пользователи получают дополнительные возможности:
  8. // долговременное хранение своих программ, возможность работы с папками
  9. //Free Pascal Compiler version 3.0.4+dfsg-22
  10. var
  11. c,d:integer;
  12.  
  13. procedure P(x:integer; var y:integer);
  14. begin
  15. y:=x+1;
  16. end;
  17.  
  18. procedure Q(x:integer; var y:integer);
  19. begin
  20. y:=x+1;
  21. end;
  22.  
  23. begin
  24. c:=2; d:=0; P(sqr(c)+c,d); writeln(d);
  25. //c:=2; d:=0; Q(sqr(c)+c,d); writeln(d);
  26. //c:=2; d:=0; R(sqr(c)+c,d); writeln(d);
  27. end.
Success #stdin #stdout 0s 5284KB
stdin
Standard input is empty
stdout
7