var a,b,c,x,y,z: integer;
begin
readln(a,b,c);
y:=b div 2;
z:=c div 4;
if (a=z)and(a=y) then write ('Mogna sklastu ',a,'nabor(a,iv)')
else
if (a>z)or(y>z) then write ('Mogna sklastu ',z,'nabor(a,iv)')
else
if (a>y)or(z>y) then write ('Mogna sklastu ',y,'nabor(a,iv)')
else
if (z>a)or(y>a) then write ('Mogna sklastu ',a,'nabor(a,iv)');
end.
воскресенье, 4 марта 2012 г., 13:57:13 UTC+2 пользователь Юрий Устименко написал: