fork download
copy 
  1. program CARO;
  2.  
  3. var n, i, j: integer;
  4. 	a: array[1 .. 30, 1 .. 30] of char;
  5. 	fi, fo: text;
  6.  
  7. procedure check(a, b, c: char);
  8. begin
  9. 	//writeln(a, b, c);
  10. 	if (a = b) AND (b = c) AND (a <> '.') then
  11. 	begin
  12. 		write(fo, a);
  13. 		close(fi); close(fo);
  14. 		halt;
  15. 	end;
  16. end;
  17.  
  18. begin
  19. 	assign(fi, 'CARO.inp'); reset(fi);
  20. 	assign(fo, 'CARO.out'); rewrite(fo);
  21. 	readln(fi, n);
  22. 	for i := 1 to n do 
  23. 	begin
  24. 		for j := 1 to n do
  25. 			read(fi, a[i, j]);
  26. 		readln(fi);
  27. 	end;
  28. 	for i := 1 to n do
  29. 		for j := 1 to n do 
  30. 		begin
  31. 			if j + 2 <= n then check(a[i, j], a[i, j + 1], a[i, j + 2]);
  32. 			if i + 2 <= n then check(a[i, j], a[i + 1, j], a[i + 2, j]);
  33. 			if (i + 2 <= n) AND (j + 2 <= n) then check(a[i, j], a[i + 1, j + 1], a[i + 2, j + 2]);
  34. 			if (i - 2 >= 1) AND (j + 2 <= n) then check(a[i, j], a[i - 1, j + 1], a[i - 2, j + 2]);
  35. 		end;
  36. 	write(fo, 'ongoing');
  37. 	close(fi); close(fo);
  38. end.
Runtime error #stdin #stdout #stderr 0s 336KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Runtime error 2 at $000000000040028D
  $000000000040028D
https://ideone.com/hcLuHS
language:
Pascal (fpc 3.0.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!