8 клас цикли While For (pascal)