Вводится строка, содержащая существительное 1-го склонения, оканчивающееся на «а». Составьте программу, склоняющую это слово по падежам.​

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 символ.

Объяснение: