Дано некоторое число если оно четное уменьшить его в 2 раза,написать программу

Program test; 
var a:integer;
 begin 
 read(a); 
if a mod 2 =0 then 
 a:=a div 2;   
write(a); 
end.