Ддуже потрібно
Відкрийте середовище розробки програмного забезпечення IDLE та створіть новий файл Python. Створіть нове вікно світло зеленого кольору з залоговком "Вікно tkinter" та подію Button-1 , яка змінить розміри цього вікна на 500х500 пікселів та колір на темно зелений . Також створіть подію Button-3, при виконанні якої всі зміни буде відмінено .

1. 

program HelloWorld;
var i: integer;
var a,b,s: double; //a - выручка за день, b - план за день, s - зарплата всего

begin

    s:=0;
    for i:= 1 to 28 do
    begin
     write('День '); write(i); writeln(': ');
     writeln('Введите значение ежедневной выручки:');
     readln(a);
     writeln('Введите значение ежедневного плана:');
     readln(b);   

     if a>b then
     begin
      a:= a+a*0.2;
      end
     else a:= 1500;   

     s:= s + a;

  end;

 write('Зарплата составила: ');
writeln(s:15:2);

end.

2.

program HelloWorld;

var i: integer;

var a,s: double; //s - итого в процентах, a - еда в граммах

begin

    s:=0;

    for i:= 1 to 28 do

    begin

     write('День '); write(i); writeln(': ');

     writeln('Укажите сколько грамм съедено:');

     readln(a);

    

     if a>100 then

     begin

      s:= s+3;

      end

     else s:= s+2;

   

    end;

 

    write('Подрос на (%): ');

    writeln(s:15:2);

 end.

3.

program HelloWorld;

var i: integer;

var a,b,s: double; //a - время в воде в день, b - время на суше в день, s - пройденный путь

begin

    s:=0;

    for i:= 1 to 7 do

    begin

     write('День '); write(i); writeln(': ');

     writeln('Укажите время в воде:');

     readln(a);

     writeln('Укажите время на суше:');

     readln(b);

     s:= s+(a*80 + b*20);

    end;

    write('Пройденный путь: ');

    writeln(s:15:2);

end.

uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.