Записать выражение на языке программирования Pascal

Num := (d + n) / 10; sq := trunk(num) + 1;