По братски, 303(4) - 30(6)
202(6) + 200(8)
а3(16) + 37(8)

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.