//Аритмии лечение
Переменные: МАССА, Тип_тахикардии, Гемодинамика, Препарат, ИНФ_НОМЕР_НОВОКАИНАМИД,\
ДОЗА_НОВОКАИНАМИД,КОЭФФ_НОВОКАИНАМИД, время_введения,\
		ИНФ_НОМЕР_ЛИДОКАИН, ДОЗА_ЛИДОКАИН, КОЭФФ_ЛИДОКАИН, лидокаин_флаг,\
		Оценка_ритма, ИНФ_НОМЕР_АМИОДАРОН, ДОЗА_АМИОДАРОН, КОЭФФ_АМИОДАРОН, Отклонение_СТ,\
		Интервал_КуТ, ДОЗА_ЭСМОЛОЛ, КОЭФФ_ЭСМОЛОЛ, ИНФ_НОМЕР_ЭСМОЛОЛ,\
		ДОЗА_МЕТОПРОЛОЛ, КОЭФФ_МЕТОПРОЛОЛ, ИНФ_НОМЕР_МЕТОПРОЛОЛ, Брадикардия,\
		ИНФ_НОМЕР_КАЛИЙ, ДОЗА_КАЛИЙ, КОЭФФ_КАЛИЙ, ИНФ_НОМЕР_МАГНЕЗИЯ, ДОЗА_МАГНЕЗИЯ, КОЭФФ_МАГНЕЗИЯ //калий через капельницу, магн капельница

БЛОК ВХОД 
	ДОЗА_НОВОКАИНАМИД=0.0
	КОЭФФ_НОВОКАИНАМИД=1.0/100
	время_введения=0.0
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 3сек)
	ДОЗА_ЛИДОКАИН=0.0
	КОЭФФ_ЛИДОКАИН=1.0/20
	ДОЗА_АМИОДАРОН=0.0
	КОЭФФ_АМИОДАРОН=1.0/50
	Интервал_КуТ=0.0
	ДОЗА_ЭСМОЛОЛ=0
	КОЭФФ_ЭСМОЛОЛ=1.0/250
	ДОЗА_МЕТОПРОЛОЛ=0
	КОЭФФ_МЕТОПРОЛОЛ=1.0
	ДОЗА_КАЛИЙ=0.0
	КОЭФФ_КАЛИЙ=1.0/40 
	КОЭФФ_МАГНЕЗИЯ=1.0/20
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ЧСС, 3 сек) 
	МАССА=ВВОД("Введите массу пациента (кг)", 30, 250)
	Тип_тахикардии=ВЫБОР("Определите тип тахикардии:", "Мономорфная", 1, "Полиморфная", 2, "Torsades de pointes", 3)
	Гемодинамика=ВЫБОР("Оцените гемодинамику", "Стабильная", 1, "Нестабильная", 0)
	ЕСЛИ Тип_тахикардии==1 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(МОНОМОРФНАЯ_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==1 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(МОНОМОРФНАЯ_НЕСТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==2 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(ПОЛИМОРФНАЯ_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ 
	ЕСЛИ Тип_тахикардии==2 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(ПОЛИМОРФНАЯ_НЕСТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==3 и Гемодинамика==1 то
		АКТИВИРОВАТЬ_БЛОК(ТОРСАДЭС_СТАБИЛЬНАЯ, 100 час)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Тип_тахикардии==3 и Гемодинамика==0 то
		АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//============================================================================
БЛОК ОБРАБОТКА_ЧСС()
	ЕСЛИ ЧСС >= 220 то  
		ВЫЗОВ_ВРАЧА("Критически высокая ЧСС (ЧСС). Начать алгоритм сердечно-лёгочной реанимации", 20 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС <= 50 то  
		ВЫЗОВ_ВРАЧА("Критически низкая ЧСС (ЧСС). Начать алгоритм брадикардии.", 20 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================================================================
БЛОК МОНОМОРФНАЯ_СТАБИЛЬНАЯ()
	Препарат=ВЫБОР("Выберите препарат:", "Новокаинамид", 1, "Лидокаин", 0)
	ЕСЛИ Препарат==1 то
		ДОЗА_НОВОКАИНАМИД=17
		ИНФ_НОМЕР_НОВОКАИНАМИД=ВВЕСТИ(1,НОВОКАИНАМИД, 50*КОЭФФ_НОВОКАИНАМИД*60 мл/час) 
		время_введения=ДОЗА_НОВОКАИНАМИД*МАССА/50
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_НОВОКАИНАМИД)
	иначе
		ДОЗА_ЛИДОКАИН=1
		ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
		ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
		ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	СПАТЬ(5мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==1 то
		ЕСЛИ Препарат==1 то
		ДОЗА_НОВОКАИНАМИД=17
		ИНФ_НОМЕР_НОВОКАИНАМИД=ВВЕСТИ(1,НОВОКАИНАМИД, 50*КОЭФФ_НОВОКАИНАМИД*60 мл/час) 
		время_введения=ДОЗА_НОВОКАИНАМИД*МАССА/50
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_НОВОКАИНАМИД)
		иначе
		ДОЗА_ЛИДОКАИН=1
		ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
			ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
			ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	СПАТЬ(5мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================================================================
БЛОК АМИОДАРОН()
	ДОЗА_АМИОДАРОН=15
	ИНФ_НОМЕР_АМИОДАРОН=ВВЕСТИ(1, АМИОДАРОН, ДОЗА_АМИОДАРОН*КОЭФФ_АМИОДАРОН*60 мл/час)
	СПАТЬ(10мин)
	ДОЗА_АМИОДАРОН=1
	ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*КОЭФФ_АМИОДАРОН*60 мл/час)
	СПАТЬ(6 час)
	ДОЗА_АМИОДАРОН=0.5
	ИЗМЕНИТЬ_СКОРОСТЬ(ИНФ_НОМЕР_АМИОДАРОН,АМИОДАРОН,ДОЗА_АМИОДАРОН*КОЭФФ_АМИОДАРОН*60 мл/час)
	СПАТЬ(18 час)
	ВЫЗОВ_ВРАЧА("Доза Амиодарона за последние 24 часа составила 1 г.", 2мин)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ЕСЛИ Интервал_КуТ==1 то
			ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
		иначе
			ВЫЗОВ_ВРАЧА("Приступ купировать не удалось. Завершение работы алгоритма.", 5 мин)
		КОНЕЦ_ЕСЛИ
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=======================================================================================
БЛОК МОНОМОРФНАЯ_НЕСТАБИЛЬНАЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 100Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===========================================================================================
БЛОК ПОЛИМОРФНАЯ_СТАБИЛЬНАЯ()
	Отклонение_СТ=ВЫБОР("Отклонение сегмента ST от изолинии", "менее 1 мм", 1, "более 1 мм", 0)
	ЕСЛИ Отклонение_СТ==1 то
		Интервал_КуТ=ВЫБОР("Продолжительность интервала QT","Нормальная (менее 450 мс)",1,"Увеличенная (более 450 мс)",0)
		ЕСЛИ Интервал_КуТ==1 то
			АКТИВИРОВАТЬ_БЛОК(АМИОДАРОН, 100 час)
		иначе
			Препарат=ВЫБОР("Выберите препарат (бетаблокатор):", "Эсмолол", 1, "Метопролол", 0)
			ЕСЛИ Препарат==1 то
				ДОЗА_ЭСМОЛОЛ=0.100  //мг/кгмин
				ИНФ_НОМЕР_ЭСМОЛОЛ=ВВЕСТИ(1,ЭСМОЛОЛ, ДОЗА_ЭСМОЛОЛ*МАССА*КОЭФФ_ЭСМОЛОЛ*60 мл/час) 
				СПАТЬ(1 мин)
				ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЭСМОЛОЛ)
			иначе
				ДОЗА_МЕТОПРОЛОЛ=5
				ИНФ_НОМЕР_МЕТОПРОЛОЛ=ВВЕСТИ(1,МЕТОПРОЛОЛ, 0.5*ДОЗА_МЕТОПРОЛОЛ*КОЭФФ_МЕТОПРОЛОЛ*60 мл/час) 
				СПАТЬ(2 мин)
				ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МЕТОПРОЛОЛ)
			КОНЕЦ_ЕСЛИ
			СПАТЬ(5мин)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
			ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
			ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
			ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			// реализовать повторять до 3х раз!!!!
		КОНЕЦ_ЕСЛИ
		
	иначе
		ДОЗА_ЛИДОКАИН=1
		ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
		СПАТЬ(2 мин)
		ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
		ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
			ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
		КОНЕЦ_ЕСЛИ	
		СПАТЬ(5мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==1 то
			ДОЗА_ЛИДОКАИН=1
			ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			лидокаин_флаг=ВЫБОР("Повторить ввод Лидокаина?", "Да", 1, "Нет", 0)
			ЕСЛИ лидокаин_флаг==1 то
			ДОЗА_ЛИДОКАИН=0.5
			ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		СПАТЬ(5мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//====================================================================================
БЛОК ПОЛИМОРФНАЯ_НЕСТАБИЛЬНАЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Выполнить экстренную коронаграфию", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//==========================================================================================
БЛОК ТОРСАДЭС_СТАБИЛЬНАЯ()
	Брадикардия=ВЫБОР("Была ли брадикардия с ЧСС<50 в течение 1 минуты или паузы (расстояния между RR более 2 сек)?","Да",1,"Нет (или нет данных)",0)
	ЕСЛИ Брадикардия==1 то
		ВЫЗОВ_ВРАЧА("Начать Эндокардиальную электрокардиостимуляцию (если доступна)", 10 мин)
		Препарат=ВЫБОР("Выберите препарат (бетаблокатор):", "Эсмолол", 1, "Метопролол", 0)
		ЕСЛИ Препарат==1 то
			ДОЗА_ЭСМОЛОЛ=0.100  //мг/кгмин
			ИНФ_НОМЕР_ЭСМОЛОЛ=ВВЕСТИ(1,ЭСМОЛОЛ, ДОЗА_ЭСМОЛОЛ*МАССА*КОЭФФ_ЭСМОЛОЛ*60 мл/час) 
			СПАТЬ(1 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЭСМОЛОЛ)
		иначе
			ДОЗА_МЕТОПРОЛОЛ=5
			ИНФ_НОМЕР_МЕТОПРОЛОЛ=ВВЕСТИ(1,МЕТОПРОЛОЛ, 0.5*ДОЗА_МЕТОПРОЛОЛ*КОЭФФ_МЕТОПРОЛОЛ*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МЕТОПРОЛОЛ)
		КОНЕЦ_ЕСЛИ
		СПАТЬ(10 мин)
		Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
		ЕСЛИ Оценка_ритма==0 то
			ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==2 то
			ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ Оценка_ритма==1 то
			АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
		КОНЕЦ_ЕСЛИ	
	иначе
		Интервал_КуТ=ВЫБОР("Продолжительность интервала QT","Нормальная (менее 450 мс)",1,"Увеличенная (более 450 мс)",0)
		ЕСЛИ Интервал_КуТ==1 то
			ВЫЗОВ_ВРАЧА("Отменить препараты удлиняющие QT.", 2 мин)
			ДОЗА_КАЛИЙ=1
			ИНФ_НОМЕР_КАЛИЙ=ВВЕСТИ(1, калий_хлорид, ДОЗА_КАЛИЙ*КОЭФФ_КАЛИЙ мл/час)
			СПАТЬ(30мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_КАЛИЙ)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
				ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
				ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
				АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
			КОНЕЦ_ЕСЛИ
		иначе
			ДОЗА_МАГНЕЗИЯ=1.25 //г/мин
			ИНФ_НОМЕР_МАГНЕЗИЯ=ВВЕСТИ(1, сернокислая_магнезия, ДОЗА_МАГНЕЗИЯ*КОЭФФ_МАГНЕЗИЯ*60 мл/час)
			СПАТЬ(2мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_МАГНЕЗИЯ)
			ДОЗА_ЛИДОКАИН=0.5 // мг/кг*мин
			ИНФ_НОМЕР_ЛИДОКАИН=ВВЕСТИ(1,ЛИДОКАИН, 0.5*ДОЗА_ЛИДОКАИН*МАССА*КОЭФФ_ЛИДОКАИН*60 мл/час) 
			СПАТЬ(2 мин)
			ЗАКОНЧИТЬ_ВВЕДЕНИЕ(ИНФ_НОМЕР_ЛИДОКАИН)
			Оценка_ритма=ВЫБОР("Оцените ритм", "Рецидив желудочковой тахикардии", 1, "Синусовый ритм", 2, "Другое", 0)
			ЕСЛИ Оценка_ритма==0 то
				ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==2 то
				ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
				ОСТАНОВИТЬ_АЛГОРИТМ
			КОНЕЦ_ЕСЛИ
			ЕСЛИ Оценка_ритма==1 то
				АКТИВИРОВАТЬ_БЛОК(ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ, 100 час)
			КОНЕЦ_ЕСЛИ	
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//======================================================================
БЛОК ЭЛЕКТРОИМПУЛЬСНАЯ_ТЕРАПИЯ()
	ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
	ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
	СПАТЬ(30 сек)
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2, "Другое", 0)
	ЕСЛИ Оценка_ритма==0 то
		ВЫЗОВ_ВРАЧА("Дополнительная диагностика и контроль. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Подготовить дефибриллятор. Разряд 200Дж.", 2 мин)
		ВЫЗОВ_ВРАЧА("ВСЕ ОТ ПАЦИЕНТА! РАЗРЯД!", 1 мин)
		СПАТЬ(30 сек)
	КОНЕЦ_ЕСЛИ
	Оценка_ритма=ВЫБОР("Оцените ритм", "Желудочковая тахикардия", 1, "Синусовый ритм", 2)
	ЕСЛИ Оценка_ритма==2 то
		ВЫЗОВ_ВРАЧА("Приступ купирован. Завершение работы алгоритма.", 5мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ Оценка_ритма==1 то
		ВЫЗОВ_ВРАЧА("Электроимпульсная терапия неэффективна. Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//===================================================================