Создать программу по данной схеме - Turbo Pascal

Формулировка задачи:

программу на турбо паскале

Решение задачи: «Создать программу по данной схеме»

Листинг программы

const
  Digits=['0'..'9'];
  LetLat=['A'..'Z','a'..'z'];
  LetRus=['А'..'Я','а'..'п','р'..'я','Ё','ё'];
var
  dig, lat, rus, i: Integer;
  s: String;
begin
  ReadLn(s);
  for i:=1 to Length(s) do
    if      s[i] in LetLat then Inc(lat)
    else if s[i] in LetRus then Inc(rus)
    else if s[i] in Digits then Inc(dig);
  WriteLn('Латинских букв: ':20,lat);
  WriteLn('Русских букв: ':20,rus);
  WriteLn('Цифр: ':20,dig);
  WriteLn('Прочих: ':20,Length(s)-lat-rus-dig);
end.

Объяснение кода листинга программы

В первой строке объявлены константы Digits, LetLat и LetRus, которые содержат наборы символов для проверки.
Затем объявлены переменные dig, lat, rus и i типа Integer, а также переменная s типа String.
Далее, с помощью функции ReadLn, в переменную s считывается строка, которую вводит пользователь.
В цикле for происходит проверка каждого символа строки s.
Если символ является латинской буквой, то к переменной lat прибавляется единица.
Если символ является русской буквой, то к переменной rus прибавляется единица.
Если символ является цифрой, то к переменной dig прибавляется единица.
После окончания цикла выводятся результаты подсчета количества каждого типа символов.
Выводится количество латинских букв с помощью строки 'Латинских букв: ' и значения переменной lat.
Выводится количество русских букв с помощью строки 'Русских букв: ' и значения переменной rus.
Выводится количество цифр с помощью строки 'Цифр: ' и значения переменной dig.
Выводится количество прочих символов, которое равно разности длины строки s и суммы количества латинских, русских букв и цифр с помощью строки 'Прочих: ' и вычисления Length(s)-lat-rus-dig.