program z_1;
var a,b:real;
begin
write ('Введите первое число: ');
readln (a);
write ('Введите второе число: ');
readln (b);
if abs(a)>abs(b) then
writeln (b,' находится ближе к началу координат.')
else if abs(b)>abs(a) then
writeln (a,' находится ближе к началу координат.')
else if abs(a)=abs(b) then
writeln (a,' и ',b,' находятся на одинаковом расстоянии от начала координат.')
end.