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