Паскаль

[GreenDay]

Задача вот: s007.radikal.ru/i301/1011/76/74c8583ff8d2.jpg

Я ее решил, вот что получилось:

program uses322;
uses crt;
var R1, R2, L, C, v, Z, x, y:real;
w:integer;
begin
clrscr;
R1:=200;
R2:=500;
L:=2;
C:=5;
write ('Введите частоту w ');
readln (w);
writeln;
writeln('__________________________ _____________');
writeln('| X | Y | Z | w |');
writeln('__________________________ _____________');
repeat
z:=(x*x)+(y*y);
x:=((r1*r2)*(r1+r2)+(r1*(w*l)-(1/(sqr(w*c)))))/((sqr(r1+r2))+((w*l)-(1/w*c)));
y:=((sqr(r1))*((w*l)-(1/(w*c))))/((sqr(r1+r2))+((w*l)-(1/(sqr(w*c)))));
v:=1/(sqrt(l*c));
writeln('|', x:1 ,' |', Y:1,' |', z:1 , ' |',w:1 ,' | ' );
w:=w+100;
until w=1000;
writeln('|', x:1 ,' |', Y:1,' |' ,z:1 ,' |', w:1 ,' | ' );
write ('Круговая частота: ');
writeln (v:5:2);
readkey;
end.
end.

Но вот беда, нет резонанса.. Подскажите де баг...

[Alenchik]

Помогите пожалуйста решить задачи:
1. В целочисленной последовательности есть нулевые элементы. Определить количество этих элементов.
2. В одновременном массиве размещены: в первых N элементах значение аргумента, в следующих - соответствующие им значения функции. Напечатать элименты этого массива в виде двух параллельных столбцов (аргумент и значение функции).