Quebra de linha

[Mariojorge14]

Program megasena;
uses crt;
var 
i,n,c,d:integer;

Begin
 clrscr;
 	writeln ('Numeros para o concurso mega-sena');
 	writeln ('---------------------------------');
 	writeln ('Digite um numero');
	readln (d);

	for c:=1 to d do
		begin 
			for i:=1 to 6 do
 				begin
 					n:=random (60)+1;
 					write  (n); 				

 				end; 			
 		end; 

 End.

a~e pessoal o que eu estou errando que não estou conseguindo ter quebra de linha de 6 em 6 números desde já agradeço fui...

[LNW]

Olá Mariojorge14,

Coloque um writeln; ao final do primeiro laço for (antes do segundo end; ). E para que os resultados saiam espaçados, use um write (n, ' ');.

No mais, é só isso.

Agora, basta gerar os números da sorte pra mim..

NW