Помогите пожалуйста решить задачи в Delphi

Question

Линейные алгоритмы 
1. Известен объем и масса тела. Определить плотность материала этого тела. 
 
Условный оператор 
2. Дано двузначное число. Определить: 
а) кратна ли трем сумма его цифр; 
б) кратна ли сумма его цифр числу а. 
 
Оператор варианта 
3. Дано натуральное число п (1 < п < 1188), определяющее возраст человека (в месяцах) . Выразить возраст в годах и месяцах, например, 21 год 
10 месяцев, 52 года 1 месяц, 46 лет ровно и т. п.

Виктор · Accepted Answer

witeln(v/m); 
 
while n>0 do begin 
s:=s+n mod 10; 
n:=n div 10; 
end; 
writeln(n mod a = 0); 
 
writeln(n div 12, n mod 12);