var x,y,dist:real;
begin
readln(x,y);
dist:=sqrt(x*x+y*y);
readln(x,y);
x:=sqrt(x*x+y*y);
if (x>dist) then writeln('2-я точка ближе')
else if (x<dist) then writeln('1-я точка ближе')
else writeln('Одинаково')
end.
1)
монитор
клавиатура
программист
процессор
2)на фотке
3)
Досье
Досуг
Доступ
Досада
Доспехи
Достаток
Достояние
Достижение
Достоинство
Достопримечательность
Радость
Гордость
Молодость
4) разбиваем это огромное число по две цифры. Первая цифра по горизонтали, вторая по вертикали. Таким образом получаем:
Что? - Где? - Когда?
Вот схему рисовать не стала думаю поймешь