Exercice 1 (Série Yahya #2)

{https://cdn.discordapp.com/attachments/833273071325675531/835868501952036865/20210425_142227.jpg}
Program exercie1;
Uses Wincrt;
Var
n:integer;
Procedure saisie (Var n:integer);
Begin
  Repeat
    Writeln ('Saisir le nombre de terme');
    Readln (n);
  Until (n>0);
End;

Function ajout (ch:String;n:Integer): String;
Var
  ch1: String;
  i: Integer;
Begin
  Str (n,ch1);
  For i:=1 To n Do
    ch := ch+ch1;
  ajout := ch;
End;

Procedure suite (n:Integer);
Var
  ch: String;
  i: Integer;
Begin
    ch := '';
  For i:=1 To n Do
    Begin
            ch :=ajout(ch,i);
      Writeln ('U',i,'=',ch);
    End;
End;
Begin
    saisie (n);
    suite (n);
End.