var a,b,c,d,x,y: real;
begin
readln (a,b,c,d);
x:=a/b;
y:=c/d;
if x>y then writeln('U pershogo gustuna bilshe')
else
if y>x then writeln('U drugogo gustuna bilshe')
else writeln ('Gustunu rivni');
end.
понедельник, 27 февраля 2012 г., 16:21:16 UTC+2 пользователь Юрий Устименко написал: