В качестве небольшой разминки предлагаем решить следующую задачу

Выберите номер пункта, соответствующий назначению данной программы

Program AA;
uses crt, dos, graph;
var
 Gd, Gm : integer;
 i, j : integer;
begin
 Gd:=Detect; initgraph(Gd,Gm,'');
 for j:=1 to 4 do
 for i:=1 to 4 do begin
 SetFillStyle(SolidFill,Black);
 Bar((2*i-2)*(GetMaxX div 8),(2*j-2)*(GetMaxY div 8),(2*i-1)*(GetMaxX div 8)-1,(2*j-1)*(GetMaxY div 8)-1);
 SetFillStyle(SolidFill,White);
 Bar((2*i-1)*(GetMaxX div 8),(2*j-2)*(GetMaxY div 8),(2*i)*(GetMaxX div 8)-1,(2*j-1)*(GetMaxY div 8)-1);
 SetFillStyle(SolidFill,White);
 Bar((2*i-2)*(GetMaxX div 8),(2*j-1)*(GetMaxY div 8),(2*i-1)*(GetMaxX div 8)-1,(2*j)*(GetMaxY div 8)-1);
 SetFillStyle(SolidFill,Black);
 Bar((2*i-1)*(GetMaxX div 8),(2*j-1)*(GetMaxY div 8),(2*i)*(GetMaxX div 8)-1,(2*j)*(GetMaxY div 8)-1);
 end;
 delay(5000);
 closegraph;
end.

Текстовый редактор
Графический редактор
Архиватор (сжатие)
Архиватор (разархивирование)
Электронная таблица
Игра "Перебежать по доскам"
Игра "Тир"
Объединение 2-х файлов
Разбиение файла
Поиск в текстовом файле
Программа очистки экрана дисплея
Резидентная программа очистки экрана дисплея
Игра "Гусеница — пожирательница цифр"
Сортировка файла чисел
Рисование спирали
Программа уничтожения всех файлов в текущем подкаталоге
Простейшая надстройка над ДОС
Программа рисования шахматной доски
Игра "Тараканьи бега"
Инвертирование цветов на экране дисплея в графическом режиме
Программа "Секундомер"
Программа "Бегущий человечек"
Программа "Подпрыгивающий символ"

Задачи предоставлены Александром Приходько,
курсы-студия программирования,
заочное обучение - 220074, Минск, а/я 193,
индивидуальное и групповое обучение - тел. 51-24-30