Voila j ai mis au moins 4 fois "readln" a la fin de mon programme mais on dirais que sa sert a rien car je n ai pas le temps de voir le resultat de mon programme:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var nb1, res, p2 :integer;
function puiss(nb, p :integer) :integer;
var ind :integer;
begin
for ind := 1 to p do
begin
res := nb * nb;
nb := res;
end;
writeln(´´,nb,´ a la puissance ´,p,´ est egal a ´,puiss(nb, p));
end;
begin
writeln(´Entrez un nombre´);
readln(nb1);
writeln(´Entrez l exposant´);
readln(p2);
puiss(nb1, p2);
readln;
end.
aider moi PITIER !! !
