<span>Program sacha;</span>
var s:real;
begin
read(s);
write(Abs(a * 10))
end.
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
<span>end. </span>
К 1971 году была создана сеть с 23 пользователями в разных концах США. В 1972 году впервые ARPANET была продемонстрирована перед публикой.
A = int(input())
if a == 2 or a == 4 or a == 6 or a == 5:
print("5")
else:
print("6")