Среди точек с координатами (x1,y1),(x2,y2)…(x10,y10) найти количество точек, лежащих в I-ой четверти и вывести на печать их номера.

Pascal


var x,y:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
write(();
read(x[i]);
write(;);
read(y[i]);
write());
end;
writeln(To4kU, koToPbIe //E>Ifor i:=1 to 10 do
if (x[i]>0)and(y[i]>0) then begin k:=1+k; writeln(i); end;
writeln(BCEtO - ,k);
end.