От : Алексей	29-05-2008
Тема :
8  А зачем вообще нужн этот цикл? for i := 1 to n do begin x[s] := y[s]; end;