найти сумму целых чисел больших 10 меньших 50 кратных 3 и заканчивающихся на 2. турбо паскаль, СРОЧНО!

веселые задания - "срочно, горю, усираюсь, умираю.... " в две строчки)) )
sum:= 0;
for i:= 10 to 50 do
if ( i mod 3 = 0 ) and ( i mod 10 = 2 ) then inc ( sum,i );