Судя по полагается то , что они играли не зависимо за какую именно . посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как . посчитаем отдельно каждую встречу внутри команд ,и между разными . по первой лиги это число сочетаний по высшей лиги это число сочетаний а между собой очевидно в сумме встреч. если не было ничьи то очевидно одно из двух 1) либо команда проиграет 2) либо команда выиграет число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда побед то пусть количество выигрышей команды первой лиги равна , то другой что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо должно делится на 8 , подходит при нем все выполняется
var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Объяснение: