Найти сумму всех двухначных натуральных чисел на языке программирования​

Если будут где-то ошибки извините ,возможно в знаках)) проверьте в паскале ,если что напишите 

program prazdnik;
var a : integer ;
begin
readln(a);
if a=1  then writeln ('пишите сюда праздиники в первый месяц,какие нужны');
if a=2 then writeln ('сюда то чт ово второй ');
if a=3 then writeln (' третий ') ;
if a=4 then writeln (' четвертый месяц с его праздниками');
if a=5 then writeln (' пятый месяц');
  if a=6 then writeln (' шестой месяц'); 
 if a=7 then writeln (' седьмой месяц'); 
 if a=8 then writeln (' восьмой'); 
 if a=9 then writeln (' праздники '); 
 if a=10 then writeln ('празники '); 
  if a=11 then writeln (' праздники 11 месяца');
 if a=12 then  writeln ('двенадцатый');  
end.

Составь таблицу истинности. Прежде чем ее составить: во первых нужно знать нумерацию, во вторых что такое коньюкция, дизъюнкция, инверсия и тд (и их табл истинности) тогда ты сможешь это все применять в таблице.

Объяснение:

У тебя идут колонки: A,B,C,потом A(инверсия) и B(инверсия).

Для 3 колонок 1 и 0:

A  B  C   A(инв)  B(инв)  (В(инв) диз С)   (А(инв)коньюк((В(инв) диз С))

0  0  0

0  0  1

0  1  0

0  1   1

1  0  0

1  0  1

1  1  0

1  1  1

(В инверсии меняешь ед на нули, нули на ед, коньюкция -  умножение, дизъюнкция - сложение)