Quai será o valor exibido na tala pelo algoritimo a segir?

program exemplo;
var val, num:integer;
begin
val:=5;
num:=8;
if(val MOD 2=0)then
begin
write (val);
end;
else
begin
write (num);
end;
end.

o resultado que será apresentado pelo algoritimo vai ser 5