Guest User

Untitled

a guest
May 21st, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. program Noname3;
  2. var N : integer;
  3.  
  4. procedure Kuku(var N : integer);
  5. const M : integer = 1;
  6. begin
  7. writeln(N, ' ', M);
  8. N := M;
  9. M := M+1
  10. end;
  11.  
  12. begin
  13. N := 1;
  14. Kuku(N);
  15. Kuku(N);
  16. end.
Add Comment
Please, Sign In to add comment