Корпус,процессор,материнская плата,к<span>улер для процессора ,в</span>идео карта,оперативная память,жесткий диск,б<span>лок питания.</span>
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>
Program Program1;
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
Writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 10 do
if i mod 2 = 0 then a[i]:=sqr(a[i]);
Writeln('Преобразованный массив: ');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.