Решите на Паскале, пожалуйста.

1) масса = объём • плотность= pi•(d/2)^2•l•ro, где d - это толщина бревна, l - длина, ro - плотность

2)число сотен = (x mod 1000) div 100

число десятков = (x mod 100) div 10

3) 'счастливый билет' - шестизначное число, сумма первых трёх цифр которого равна сумме последних трёх цифр. Например, 286367