Алг «Галерея картинок»

нач алг «рисунок_треугольника»

Вывод («Список картинок:») нач

Вывод («1. треугольник») линия (150,50)-(100,100)

Вывод («2. прямоугольник») линия (150,50)-(200,100)

вывод («3. кольцо») линия (100,100)-(200,100)

запрос(«номер =», n) кон

Графический_экран

если n = 1 то алг «рисунок_прямоугольника»

рисунок_треугольника нач

инес n = 2 то рамка (50,50)-(150,100)

рисунок_прямоугольника кон

инес n = 3 то

рисунок_кольца алг «рисунок_кольца»

Иначе нач

Вывод («нет такого рисунка») окружность (100,100), 20

Все окружность (100,100),50