Ecrire des algorithmes avec turbo pascal 7.0

#include <stdio.h>
#include <stdlib.h>

int main()
{
    int reponse=1;
    
    while (reponse) // reponse==0 : sortir, reponse==1 : continuer
    {
        int entree;
        
        printf("\nVeuillez saisir un nombre : ");
        scanf("%d",&entree);
        printf("\n");
       
        if(entree<1 || entree>3999)
        {
        printf("Erreur! Nombre incorrect\n");
        continue; // on retourne au début de la boucle while
        }
             
        int milliers=entree/1000;
        int centaines=(entree-milliers*1000)/100;
        int dizaines=((entree-milliers*1000)-centaines*100)/10;
        int unites=entree%10;

        int i;
        for (i=0; i<milliers; i++)
            printf("M");
           
        if (centaines/5==0)
        {
            printf("D");
            centaines=centaines-5;
        }    
        
        for (i=0; i<centaines; i++)
            printf("C");
        
        if (dizaines/5==0)
        {
            printf("L");
            dizaines=dizaines-5;
        }
        
        for (i=0; i<dizaines; i++)
            printf("X");
         
        if (unites/5==0)
        {
            printf("V");
            unites=unites-5;
        }
        
        for (i=0; i<unites; i++)
             printf("I");
        
        printf("\n\nVoulez-vous recommencer ? (oui : 1, non : 0)\nChoix = ");
        scanf("%d", &reponse);
    } // fin de la boucle while

return EXIT_SUCCESS;
}

program Ziko;

const Nmax=5; // les résultats ne sont pas affichables pour Nmax>5

type Table=array[1..Nmax] of integer;

procedure Demander(var T:Table;var RS,RP:real;var N:integer);
var i,j:integer;
begin
write('Combien de nombres a entrer : ');
readln(N);
if N>Nmax then Demander(T,RS,RP,N)
          else begin
               RS:=0; RP:=1;
               for i:=1 to N do
                   begin
                   write('Nombre ',i,' : ');
                   readln(j);
                   RS:=RS+real(j);
                   RP:=RP*real(j);
                   T[i]:=j;
                   end;
               writeln;
               end;
end;

procedure Afficher(var T,U:Table;RS,RP,S,P:real;M,N:integer);
var i,j:integer;
begin
if M=0 then begin
            if (RS=S) and (RP=P)
               then begin
                    for i:=1 to N do
                        write(U[i]:4,' ');
                    writeln;
                    end
            end
       else begin
            for i:=1 to N do
                begin
                j:=T[i];
                U[N-M+1]:=j; // Pour afficher "dans l'ordre"
                Afficher(T,U,RS,RP,S+real(j),P*real(j),M-1,N);
                end;
            end;
end;

var T,U:Table;
    RS,RP:real;
    N:integer;
begin
Demander(T,RS,RP,N);
Afficher(T,U,RS,RP,0,1,N,N);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.