Program z1;
var
x:integer;
begin
writeln('Введите номер месяца ');
readln(x);
Case x of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
<span>end.</span>
01001100=2^2+2^3+2^6=4+8+64=76
00010101=2^0+2^2+2^4=1+4+16=21
Выбираете толщину кисти и переключаетесь на фигуры.Вроде бы так если не ошибаюсь
Алгоритм, в котором команды выполняются в зависимости от выполнения или невыполнения некоторого условия, называется ветвлением.