View difference between Paste ID: JTB7nh8s and gxHYAvg7

 Program deca ;
 Uses Wincrt ;
 Type
   tab = Array [1..50] Of Byte ;
 Var
   t,t2: tab;
   n,k: Integer;
 
 Procedure remp_tab (Var t:tab ; n:Integer);
 Var
   i: Integer;
 Begin
   For i:=1 To n Do
-  Readln(t[i]);
+		begin
 			write('T[',i,']= ');
     Readln(t[i]);
 	  end;
 End;
-	writeln('n');
+
 Procedure saisi_n(Var n:Integer);
 Begin
   Repeat
     Write('N= ');
     Readln(n);
   Until (n>2) And (n<=50);
-	writeln('k= ?');
+
 
 Procedure saisi_k(Var k :Integer;n:Integer);
 Begin
   Repeat
     Write('k= ');
     Readln(k);
   Until (k>=1 ) And (k<n);
 End;
 Procedure decaler (Var t,t2:tab;n,k:Integer);
 Var
   i,x: Integer;
   y: Byte;
 Begin
   For i:=1 To n Do
 	begin
- {
+
   If (x>n) Then
     x := x-n;
   t2[x] := t[i];
 	end;
 End;
 
 {
 Procedure init(Var t2:tab;n:Integer);
-Procedure aff(t2:tab;n:integer);
+
-var i:integer;
+
-begin
+
-for i:=1 to n do
+
-writeln(t2[i]);
+
-end;
+
 }
 
-begin
+Procedure aff(t2:tab;n:Integer);
 Var
   i: Integer;
 Begin
   For i:=1 To n Do
     Write(t2[i]:4);
-	aff(t2,n);
+	writeln;
 End;
 Begin
   saisi_n(n) ;
   saisi_k(k,n);
   remp_tab(t,n) ;
 	aff(t,n);
 {  init(t2,n) ;}
   decaler(t,t2,n,k) ;
   aff(t2,n);
 End.