Exercice pascal,probleme
chadow2000
-
tarek_dotzero Messages postés 834 Statut Membre -
tarek_dotzero Messages postés 834 Statut Membre -
Bonjour,
peut quelqu'un m aider avec ce programme quand j'appuis compiler on m'affiche language illegale dans la ligne 10
peut quelqu'un m aider avec ce programme quand j'appuis compiler on m'affiche language illegale dans la ligne 10
program ex19;
uses wincrt;
var X,Y,p,i:integer;
begin
writeln('press an integer');
readln(X);
writeln('press another');
readln(Y);
if (Y=0) then p=1
else
begin
repeat
i:=1;
i:=i+1;
p:=1;
p:=p*X;
until i=Y;
end;
writeln(p);
end.
