Exemple

PASCAL

programme

y:=10;
i:=1;
repeat

begin
y:=y+i;
i:=i+1;
end;

until (i=10);

y=10;
i=1;
do

{
y=y+i;
i=i+1;
}

while(i<=10);