ParteInteira( ) - A função retorna a parte inteira de seu argumento, isto é, os dígitos decimais são ignorados. Ela é chamada com a sintaxe N := ParteInteira ( exprN );

Veja o exemplo abaixo:

inicio
inteiro s;
real n;
escreva("digite qualquer número: ");
leia(n);
  S := ParteInteira(n);
imprima("Foi digitado o número", n, “e sua parte inteira é”, S);
fim