[seddik47]

لرجاء المساعدة في حل هذا

. Donner l’affichage sur l’écran pour chaque morceau de programme :


i:=1;
WHILE i<= 4 DO
Writeln(i*i);
i:=i+1;




i:=0;
WHILE i<= 3 DO
BEGIN
i:=i+1;
Writeln(i-1);
i:=i-1;
END