Considerando a função abaixo, escrita em pascal:

function calc(n:integer):integer;
begin
if n=1 then
calc:=1
else
calc:=n*calc(n-1);
end;

Analise as afirmações:

I – Há um erro na função acima, pois a função calc está chamando ela mesma na sexta linha.

II - Há um erro na função acima, pois falta um “ponto e vírgula” no final da quarta linha.

III – Um programa Delphi contendo a função acima, o comando

“showmessage('Resultado = '+inttostr(calc(4)));”
exibiria uma caixa de diálogo com o texto
“Resultado = 24”.

Assinale a alternativa CORRETA: