PROGRAM6456.PAS

{* Графика *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Графический режим' : Uses .pas; { Пульсирующий эллипс ...
    Изображение из повторяющейся фигуры ...
    Песочные часы ...
    Открытка ...
    Астроида (график) ...
    Фонарь ...
    Радуга ...
    Заставка ...
    Бегущая строка ...
    }
  •  'Текстовый режим' : Uses .pas; { Движение прямоугольника ...
    Пирамида из звездочек ...
    }
Else
 writeln('Ничего не выбрано!');
End;
Program pas;

.....