У разі встановлення кількох анімаційних ефектів до певного об’єкта слайду ці ефекти: 1)обов’язково застосовуються до усіх слайдів презентації (2)замінюють один одного для виділеного слайда (3)поширюються на усі об’єкти поточного слайда (4)додаються до попередніх ефектів виділеного слайда ЛАЙ

Буду по порядку добавлять.

1)

uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.

2)

uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.

3)

uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.

program pr;
uses crt, graphABC;
var driver,
mode :integer;
begin
setwindowwidth(1024);
setwindowheight(600);
setpencolor(clBlack);
rectangle(100,100,400,400);
rectangle(150,150,200,300);
rectangle(300,150,350,300);
rectangle(375,99,340,10);
line(100,100,250,10);
line(250,10,400,100);
circle(600,50,50);
floodfill(600,50,clBlue);
circle(250,65,30);
floodfill(250,65,clRed);
setpencolor(clblue);
rectangle(225,150,275,300);
line(250,150,250,300);
line(175,150,175,300);
line(325,150,325,300);
setpencolor(clred);
circle(600,300,25);
circle(575,340,25);
circle(625,340,25);
circle(550,380,25);
circle(600,380,25);
circle(650,380,25);
end.

незнаю подойдет или нет