1.

Написать

программу для решения задачи: Точки на плоскости

заданы своими координатами. Определить какая из них находится ближе к началу

координат.

Uses crt;

var n, minind, i:integer;

min, x, y:real;

begin

writeln ('Введите количество точек: ') ;

read (n) ;

writeln ('Вводите по очереди координаты x и y точек.') ;

read (x, y) ;

min:=sqr (x) + sqr (y) ;

minind:=1;

for i:=2 to n do

begin

read (x, y) ;

if sqr (x) + sqr (y)
begin

min:=sqr (x) + sqr (y) ;

minind:=i;

end;

end;

writeln ('Точка под номером ', minind,'.') ;

end.