Происходит от звать, далее от праслав. *zъvati, от кот. в числе прочего произошли: ст.-слав. зъвати, зовѫ (др.-греч. καλεῖν, κράζειν), русск. звать, зову, укр. зва́ти, зову́, белор. зваць, болг. зова́ «зову, называю», сербохорв. зва̏ти, зо̀ве̑м, словенск. zváti, zóvem, др.-чешск. zváti, zovu, чешск. zvát, zvu, словацк. zvаť, zvem, польск. zwać, zowę. Родственно лит. žavė́ti «околдовать, зачаровать», латышск. zave^t «заговаривать, чаровать», др.-инд. hávatē «зовет», авест. zavaiti «зовет, кличет», арм. jaunem «посвящаю», возм., греч. καυχᾶσθαι «хвастать», ирл. guth «голос»; ср. особенно ст.-слав. зъватъ, супин: др.-инд. hvā́tum, ст.-слав. зъватель «тот, кто зовет»; др.-инд. hvātar-, авест. zbātar-, ст.-слав. зъванъ: др.-инд. huvānas; с др. ступенью чередования: др.-инд.
n,i,Y :integer;
begin
randomize;
Y:=0;
write ('введите размер массива ');
readln(n);
Setlength(X,n);
for i:=0 to N-1 do begin
X[i]:=random(100);
Y:=Y+X[i];
end;
writeln ('y= ',y);
end.