program circuits;
uses crt;
var U1, U2, R1, R2, I1, I2:real;
begin
   clrscr;
   writeln('Vvedite naprjazhenie pervogo ychastka sepi');
   readln(U1);
   writeln('Vvedite soprotivlenie pervogo ychastka sepi');
   readln(R1);
   writeln('Vvedite naprjazhenie vtorogo ychastka sepi');
   readln(U2);
   writeln('Vvedite soprotivlenie vtorogo ychastka sepi');
   readln(R2);
   if (R1<=0) and (R2<=0) then
      begin
        writeln('Oshibka delenie na nol');
      end
   else
      begin
	I1:=U1/R1;
        I2:=U2/R2;
      	  if (I1>I2) then
	    begin
		writeln('Tok na pervom ychastke sepi bolshe');
	    end
	  else
            begin
		if (I1=I2) then
                   begin
                      writeln('Toki odinakovie na oboix ychastkax sepi');
                   end
                else
                   begin
                      writeln('Tok na vtorom ychastke sepi bolshe');
                   end;
            end;
	end;
   readln;
end.