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. CONST N=4;
  10. VAR A:ARRAY[1..N,1..N] OF INTEGER;
  11. I,J:BYTE;
  12. D: INTEGER;
  13. BEGIN
  14. FOR I:=1 TO N DO
  15. FOR J:=1 TO N DO
  16. READLN(A[I,J]);
  17. D:= A[3,2]*2;
  18. WRITELN('RESULT: ',D);
  19. END.
Success #stdin #stdout 0s 5300KB
stdin
Standard input is empty
stdout
RESULT: 0