TURBO PASCAL:Учебное пособие. Терёхин В.В. - 93 стр.

  ch: char;
Begin
  S := [ ];
  ch := ‘A’;
  repeat
        S := S+[ch] ;
        Inc(ch);
  Until ch >= ‘Z’ ;
……………………..

           Задачи для самостоятельного решения
  Написать программу, осуществляющую алгоритм реше-
та Эратосфена для получения всех простых чисел, не превос-
ходящих заданного натурального числа n . Алгоритм состоит в
следующем: последовательно, начиная от двух, находим про-
стое число и вычёркивают все числа, кратные найденному чис-
лу и не превосходящие n.


      23 Процедуры и функции описанные
         пользователем
      Начальные сведения о процедурах и функциях даны в
разделе "Использование стандартных процедур и функций".
Мы познакомились с описанием заголовков, классификацией
параметров и т. д. Кроме того, мы уже упоминали о том, что
структура процедур и функций во многом повторяет структуру
программы. Например, описание процедуры имеет вид:

procedure <идентификатор-имя процедуры> ( <список пара-
            метров>) ;
const <раздед описания констант>
type <раздел описания типов>
var <раздел описания переменных>
label <раздел описания меток>
<раздел описания процедур и функций>
                                                          93