[حذيفة بن اليمان]

السلام عليكم

البرنامج الأول:

program djelfa;
var x,resultat: real; n,i: integer;
begin
write ('Donner X ');readln(x);
write ('Donner N ');readln(n);
for i:= 0 to n do
resultat := x*x;
write ('Le resultat est egale= ',resultat);
readln;readln;
end.