program ideone;
var i: integer; {Переменная i хранит целое число}
begin
	for i:=1 to 3 do {Повторяем циклически операцию вывода для i = 1, 2, 3}
		WriteLn('Море волнуется ', i);
	
	Randomize; {Запускаем генератор случайных чисел}
	Write('Морская фигура ');
	i:=Random(3); {Получаем случайное число от 0 до 2 - всего 3 разных варианта}
	
	{Теперь в зависимости от полученного случайного числа выдаем то или иное слово}
	if i = 0 then 
		Write('ЗАМРИ!')
	else if i = 1 then
		Write('СГОРИ!')
	else
		Write('УМРИ!');
	WriteLn;
end.