В чем суть рассказа? О чем он? Кто его герои? (Чехов О любви)

Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b); if b <= 0 then
WriteLn('Вам 0 лет') else begin c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет') else case (b mod 10) of 1: WriteLn('Вам ', b, ' год'); 2..4: WriteLn('Вам ', b, ' года'); 5..9, 0: WriteLn('Вам ', b, ' лет') end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end.