Помогите пожалуйста решить задачки в паскале.1

1. Пишу не весь код, а только самую важную частьbuf: =a[1]; //buf имеет тип такой же, как и массивfor i: =1 to n-1 do a[i]: =a[i+1]; //сдвигаем все элементы влевоa[n]: =buf; // последнему присваиваем первый 2. if sqrt (sqr (x[i])+sqr (y[i]) <= R then writeln (x[i],',y[i]) 3. Опять же не весь кодch// Кол-во четныхp// Произведениеs// Суммаs: =0; ch: =0; p: =1; for i: =1 to n do begin if a[i]>=0 then s: =s+a[i]else p: =p*a[i]; if a[i] mod 2=0 then ch: =ch+1; end; writeln ('Четных ', ch); writeln ('Сумма положительных ', s); writeln ('Произведение отриц ', p); P.S. Не компилировал, но должно работать.