PROGRAM7513.BAS

{* Графика *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Рог изобилия' : Uses rogizob.pas; { Рог изобилия ... }
  •  'Роза ' : Uses roz3.pas; { Программа построения трехлепестковой розы ... }
  •  'Российский флаг' : Uses rosflag.pas; { Российский флаг ... }
  •  'Снеговик' : Uses bsneg.pas; { Снеговик ... }
  •  'Спираль Архимеда' : Uses spiralarhimed.pas; { Программа построения спирали Архимеда Спираль Архимеда может быть определена как траектория точки, участвующей в двух равномерных движениях. ... }
  •  'Точка по квадрату' : Uses tochkv.pas; { Точка по квадрату ... }
  •  'Трапеции' : Uses trapec.pas; { Трапеции ... }
  •  'Три круга' : Uses circle3.pas; { Составить программу изображения трёх кругов с радиусами: R1 = 100, R2 = 80, R3 = 25. ... }
  •  'Улитка Паскаля' : Uses upascal.pas; { Программа построения Улитки Паскаля ... }
  •  'Часы' : Uses chas.pas; { Часы ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic