Первый и второй члены массива равны 1. Третий равен сумме первого и второго, четвёртый - сумме второго и третьего и т.д. Получить т членов этой последовательности (m≤10). программа нужна

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.

abs(−16) = 16

sqr(b) = 256

sqr(b + b) = 1024

Объяснение:

program x1;  // Название программы

var  // Раздел для описания переменных

 a, b, c: integer; // Объявление целочисленных переменных:

a - хранение первого введенного с клавиатуры числа;

b - хранение второго введенного с клавиатуры числа;

с - хранение максимального из них.

begin  // Начало программы

 a := -16;  // Присваиваем значение "-16" в переменную а

 b := abs(a);  // Присваиваем модуль числа а в переменную b

 writeln('abs(−16)=', b);  // Выводим в консоль

 c := sqr(b);   // Присваиваем квадрат числа b в переменную c

 writeln('sqr(b)=', c);  // Выводим в консоль

 c := sqr(b + b);  // Присваиваем квадрат числа b + b в переменную c

 writeln('sqr(b+b)=', c);  // Выводим в консоль

end. // Конец программы