var t1 , t2 , n1 , n2 , k :integer;
begin
 read ( t1 , t2 , n1 , n2 );
 k:=abs(( n2 - n1 )*( t1 + 2 * t2 ) - t1 );
 write ( k );
end.

it's very short and good code
(это очень короткий и хороший код)

Edited by author 16.08.2013 09:42

Edited by author 16.08.2013 09:57