var
	a,b : real;
	average : real;
	geometricmean : real;
	minstr : string;
function min(a,b : real) :real;
begin
	min := a;
	minstr := 'Pervoe';
	if (b < a) then
	begin
		min := b;
		minstr := 'Vtoroe';
	end;
end;
begin
	write('Vvedite 1-e chslo: ');
	readln(a);
	write('Vvedite 2-e chslo: ');
	readln(b);
	average := (a + b) / 2;
	geometricmean := sqrt(a*a + b*b);
	a := min(a,b);
	writeln('Naimenshee chislo - ',minstr,' (',a:0:3,')');
	write('Blize k srednemu ');
	if (abs(average - a) < abs(geometricmean - a)) then
	begin
		writeln('arifmeticheskomu (',average:0:3,')');
	end
	else
	begin
		writeln('geometricheskomu (',geometricmean:0:3,')');
	end;
	readln;
end.