1. Ворген старше Эльфа. Далее Эльф не упоминается и мы его исключаем из рассмотрения.
2. Блад младше Дренея. Блада можно исключить, но заметим, что Таурен младше Блада, поэтому исключаем и Блада, и Таурена.
3. Ворген старше Дренея. Дренея исключаем - остается Ворген, он и есть старший.
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите значения a и b:');
if a = 0 then
if b = 0 then
Println('Решений бесконечно много')
else
Println('Решений нет')
else
Println('x =', -b / a)
end.
Program n1;
var s: string;
begin
readln(s);
write('1 буква: ',s[1],' ,последняя буква: ', s[length(s)],' ,длина строки: ',length(s));
end.