procedure TForm1.Btn1Click(Sender: TObject);

procedure TForm1. Btn1Click(Sender: TObject);

var

N: integer; //последняя цифра

S: string; //изменяемое слово " символ"

begin

N: =Length(Edt1. Text); //определить число символов

Lbl2. Caption: ='В тексте ';

if N> 20 then N: =N mod 10; //выделить последнюю цифру

case N of //в зависимости от последней цифры

1: S: =' символ'; //изменять окончание слова

2.. 4: S: =' символа';

0, 5.. 20: S: =' символов';

end;

Lbl2. Caption: =Label2. Caption+

IntToStr(Length(Edt1. Text))+ S; //вывести результат

end;

5. Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение.

6. Проверьте работу приложения, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.