<span>Вариант 2 номер пакета т.к. остальные не подходят</span>
Var
m:integer;
begin
read (m);
case m of
1: write ('Февраль');
2: write ('Март');
3: write ('Апрель');
4: write ('Май');
5: write ('Июнь');
6: write ('Июль');
7: write ('Август');
8: write ('Сентябрь');
9: write ('Октябрь');
10: write ('Ноябрь');
11: write ('Декабрь');
12: write ('Январь');
end;
end.
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Использовать Чертежник
алг Звезды
нач
нц 2 раз
поднять перо
сместиться на вектор (8,0)
опустить перо
сместиться на вектор (3,6)
сместиться на вектор (3,-6)
сместиться на вектор (-6,4)
сместиться на вектор (6,0)
сместиться на вектор (-6,-4)
поднять перо
<span>кц</span>