program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
А-00000
Б-00001
В-00002
г-00003
д-00004
е-00005
ё-00006
ж-00007
з-00008
и-00009
й-00010
к-00011
л-00012
м-00013
н-00015
о-00016
п-00017
р-00018
с-00019
т-00020
у-00022
ф-00023
х-00024
ц-00025
ч-00026
ш-00027
щ-00028
ъ-00029
ы-00030
ь-00031
э-00032
ю-00033
я-00034