SlepoiKrot

Untitled

Dec 25th, 2017
68
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program C;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. var
  8. m, n, i, j: integer;
  9. begin
  10. readln (n, m);
  11. for i := 1 to n do begin
  12. for j := 1 to m - 1 do begin
  13. write (i,',', j,' ');
  14. end;
  15. write (i,',',m);
  16. writeln;
  17. end;
  18. readln;
  19. readln;
  20. end.
RAW Paste Data