Топ 5 персонажей в Бравл Старс ​

Вопрос не совсем понятен, какого типа будет результат выполнения условий? 
В принципе, на Pascal и т.д при присвоении переменной типа (пример: var x:integer;) результат арифметических операций будет такого же типа(
пример программы на pascalABC:

program HelloWorld;

var   

   x:integer;   

   y:integer;   

   z:real; //вот если мы тут укажем тип integer то у нас программа выдаст ошибку

begin   

  x:=5;   

  y:= 2;   

  z:= x/y;   

writeln(z);

end.

В принципе это все, всегда нужно думать головой на шаг вперед. Вот  ответы на поставленные резултаты операций:
целый целый R := A + B //целый integer
целый целый R := A - B //целый integer
целый целый R := A * B //целый integer
целый целый R := A / B //вещественный, real
целый целый A > B //целый integer
целый целый A < B //целый integer
вещественный вещественный R := A + B  //вещественный real
вещественный вещественный R := A - B  //вещественный real
вещественный вещественный R := A * B  //вещественный real
вещественный вещественный R := A / B  //вещественный real
вещественный вещественный A > B //вещественный real
вещественный вещественный A < B //вещественный real

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.