Скласти програму яка малює прапор Японії. (прапор Японії - білий прямокутник з червоним кругом по центру) Python.

использовать Чертежник

алг

нач

сместиться на вектор (2,0)

опустить перо

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор (2,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (3,0)

сместиться на вектор (0,3)

сместиться на вектор (3,0)

сместиться на вектор (0,-3)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

сместиться на вектор (3,0)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,8)

сместиться на вектор (2,0)

сместиться на вектор (0,-2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-8)

сместиться на вектор (-3,0)

сместиться на вектор (0,4)

сместиться на вектор (-1,0)

сместиться на вектор (0,-4)

сместиться на вектор (-3,0)

сместиться на вектор (0,4)

сместиться на вектор (-1,0)

сместиться на вектор (0,-4)

сместиться на вектор (-2,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-3,0)

поднять перо

сместиться в точку (15.9,9)

опустить перо

сместиться в точку (16,9.1)

сместиться в точку (16.1,9)

сместиться в точку (16,8.9)

сместиться в точку (15.9,9)

поднять перо

сместиться в точку (0,0)

кон

Const
   N = 30;
Var
   T:array[1..N] of integer;
   i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
    Begin
    T[i]:=random(20)-15;
    Write(' ',T[i]);
    if T[i] < 0 then k:=k+1;
    End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.

Пример работы программы:

Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23