2Neitron: Такой термоядерной смеси Васика и Паскаля я еще не видел На паскале, насколько мне известно, кроме while&repeat...until есть только один способ begin asm 1: .....
..... sub cx,STEP loop 1 end;
если такой путь ты посчитаешь проще - вперед. ЗЫ "старайтесь не использовать циклов с пост-условием. Математически обосновано отсутствие в них необходимости" Ален Голуб