сгенерировать случайные данные, соответствующие условии задачи, и сохранить их в текстовом файле в формате, удобном для просмотра. Количество необходимых точек выбирается от 10 до 5000 в зависимости от условия задачи.
uses crt,graph;
var f:text;
n,i,x,y,gd,gm:integer;
begin
clrscr;
randomize;
repeat
write('Kolichestvo tochek ot 10 do 5000 n=');
readln(n);
until(n>=10)and(n<=5000);
assign(f,'tochki.txt');
rewrite(f);
for i:=1 to n do
begin
x:=random(640);
y:=random(480);
write(f,x,' ');
write(f,y,' ');
end;
gd:=0;
initgraph(gd,gm,'');
reset(f);
while not eof(f) do
begin
read(f,x);
read(f,y);
if y>=getmaxY div 2 then putpixel(x,y,14);
end;
close(f);
readln
end.