Дз помогите пожалуйста

program
var f,d,r,t: integer;
begin
writeln ('Введите трехзначное число f=');
readln (f);
d:=f div 100;
r:=f div 10 mod 10;
t:=f mod 10;
if (d+r+t)/2 mod 0
then d+r+t+10;
else (d+r+t)*2;
writeln (d+r+t);
end.

Как правильно оформить
Требуется идентификатор перед var
Что делать
Я вообще не понимаю
Сама задача:
1. Если сумма цифр 3х значного введенного числа четная, то + к этому числу 10, иначе умножить на 2