Запишите на языке паскаль фрагмент программы соответствующий блок схеме определи