Barrapunto

Mejora, por ser libre:
Const
    Juicio_Final=false;
....
begin
    Repeat
        Si stemaActual:='Linux';
        Si stemaActual: ='FreeBSD';
        co brar_de_sco;
    until Juicio_Final;
end;