var
  // набор разделителей слов в предложении
  delimiters : set of char = [' ', ',', '.'];
  // входная строка
  inputString : string;
  i, inStrLen : integer;
  // массив, в котором индекс является кодом символа (от 0 до 255)
  // а значение элемента массива - количество раз, которое символ с кодом
  // индекс встречается в окончании слов.
  symbols : array [0..255] of integer;

begin
  // ввод строки
  write('write text here : ');
  readln(inputString);
  // обнуление значений элементов массива
  for i:=0 to 255 do symbols[i]:=0;

  i:=2;
  // получение длины строки
  inStrLen := Length(inputString);
  // проход по всем символам строки
  while i <= inStrLen do
  begin
    // если текущий элемент является разделителем
    if inputString[i] in delimiters then
       // а предыдущий им не является
       if not (inputString[i-1] in delimiters) then
          // значит этот предыдущий символ - последняя буква слова
          // следовательно нужно увеличить на единицу элемент массива
          // с индексом, соответствующим коду символа в таблице ASCII
          inc(symbols[ORD(inputString[i-1])]);
    inc(i);
  end;

  // проверяем последний символ строки
  if not (inputString[inStrLen] in delimiters) then
     // если это не разделитель, то проводим ту же операцию
     inc(symbols[ORD(inputString[inStrLen])]);

  inStrLen := 0;
  // пробегаем по массиву для поиска элемента с макс. значением
  for i:=0 to 255 do
    if symbols[inStrLen] < symbols[i] then
       inStrLen := i; // запоминаем его индекс
 
  // если максимум найден (т.е. была введена не пустая строка и не
  // строка, состоящая из одних разделителей
  if inStrLen > 0 then
     // то выводим символ, встречающийся чаще всего в конце слов.
     writeln('Symbol is "' + CHR(inStrLen) + '"')
  // иначе выводим сообщение о некорректности введенных данных.
  else writeln('Error. Input data invalid.');

  readln; // задержка до нажатия Enter

end.

 
Uses
 Crt;
Var
s: set of Char;
ch, rejim:Char;
 Procedure Konstr
  begin
  writeln('множество конструируется из символов 'a..z');
  writeln;('введите элементы множества');
  s:=[];
  readln(ch);
  while True do
   begin
   s:=s+[ch];
   if ch='z' then
   Exit;
   end;
  end;
 Procedure ManS;
  begin
  ch:=' ';
  while not(ch in S) do
  ch:=Suce(ch);
  writeln('элемент с минимальным номером равен ',ch);
  end;
 Procedure Rasp;
  var
   c1:char;
   begin
    for c1:='a' to 'z' do
    if c1 in s then
    writeln(c1);
   end;
   Begin
   Clrscr;
   while true do
   begin
   writeln('1-создание');
   writeln('2-поиск элементов с минимальным номером');
   writeln('3-вывод элементов множества');
   writeln('4-выход');
   readln(rejim);
   case rejim of
    '1':Konstr;
    '2':Mins;
    '3':Rasp;
    '4':Halt;
   end;
   readkey;
   end.

randomize;

x=random(y);

а:=a+1;
b:=b+2;

If a>5 and b=10 then......

h:=0;
while h<=1000 do
begin
  { расчет плотности для h }
  h:=h+100;
end;