CLS
INPUT
"N=", N
DIM
M(100)
S = 0
FOR i =
1 TO N
PRINT
"M(" + STR$(i) + ") =";
INPUT
M(i)
IF M(i)
\ 2 = M(i) / 2 THEN
S = S +
2 * M(i)
END IF
NEXT i
<span>PRINT "S="; S
<span>uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
begin
gotoXY(m*(i-1),i);
cf:=random(9)+8;//от голубого до желтого
ct:=random(9);//от синего до серого
textbackground(cf);
textcolor(ct);
write(s);
end;
end. попробуй это </span>