Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
3) Вариант. Именно это является целью фишинга.
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
Алгоритм месяца Начало
1.нарисовать линию
2.Затем оттянуть её( сделать полукругом
3. Взять снова эту линию и повторить то же самое
4.Выполнить заливку синим цветом
конец
Выдели изображение и нажми ctrl+c, а затем ctrl+v