Друзья напиши, для чего в повэр поинт служат дизайн, переходы и анимация. всем зарание и зайдите в ютуб и подпишитесь на канал леди марина и леди лида

Procedure tform1.button1click(sender: tobject); var   x1,y1,x2,y2,yf1,yf2 : integer;   k,b : integer; begin   x1 : = 4; y1 : = -5;   x1 : = 0; y1 : = 5;   k : = 2; b: = 2;   yf1 : = k*x1 + b;   yf2 : = k*x2 + b;   if (y1> yf1) then     y1: =1   else     y1: =-1;   if (y2> yf2) then     y2: =1   else     y2: =-1;   if (y1< > y2) then     label1.caption : = 'верно'   else     label1.caption : = 'неверно'; end;

Var        d1, v1: integer;         d2, p2, v2, w: integer;         t1, t2: real; begin        readln(d1,v1);         readln(d2,p2,v2,w);             t1: = d1 / v1;         t2: = (d2 - p2) / v2 + (p2 / w);   if (t1 < t2) then            write('1')        else if (t2 < t1) then            write('2')        else            write('0');   end.