Не могу понять почему выводит эту ошибку ! Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека

вот код

Pascal

1

2

3

4

5

6

7

8

9

10

11

12

var

y:integer;

function cosinus(x:integer):integer;

begin

if x=1 then cosinus:=cosinus(x)

else

cosinus:=cosinus(x)+cosinus(x*x);

end;

begin

readln(y);

write(cosinus(y));

end.