Придумай рисунок и составь алгоритм для художника

Нарисовать цветок 1 взять нежние придметы для рисования 2 нарисоват стебель 3  пелестки и срединку 4 листочьки 5  разкрасить 

Var mes: array[1..12] of string = ('январь','февраль','март', 'апрель',                         'май','июнь','июль','август',                         'сентябрь','октябрь','ноябрь','декабрь');     vr: array[0..3] of string = ('зима','весна','лето','осень');     n: integer; begin   write('месяц: ');   readln(n);   write(mes[n]);   n: =n mod 12;   write('   ',vr[n div 3]); end. месяц: 7 июль   летомесяц: 12 декабрь   зима

Uses crt; var  a1,a2,a3,a4,max: integer; begin  write('введите четыре числа: ');   readln(a1,a2,a3,a4);     if a1 > = a2 then        max : = a1    else          max : = a2;     if a3 > max then        max : = a3 ;     if   a4 > max then        max: =a4;     writeln ('максимальное число - : ', max); readlnend.