Pascal. Задача 5-2

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

Решение

var
  s :string;
  i, cnt1, cnt2 : integer;
begin
  write('Введите текст: ');
  read(s);
  cnt1 := 0;
  cnt2 := 0;
  for i := 1 to Length(s) do
    if s[i] in ['A'..'Z'] then
      Inc(cnt1)
    else if s[i] in ['a'..'z'] then
           Inc(cnt2);
  writeln('Количество заглавных букв: ', cnt1);
  writeln('Количество строчных букв: ', cnt2);
end.