Funções e Procedimentos

5- Faça uma função que recebe por parâmetro o tempo de duração de uma fábrica expressa em segundos e retorna também por parâmetro esse tempo em horas, minutos e segundos.

program ex5; uses crt; function tempo(s: integer; var m,h: integer):integer; begin h:= s div 3600; m:=(S mod 3600) div 60;
S:= S mod 60; tempo:=S; end; var s,m,h:integer; begin writeln('entre com o tempo em segundos');
READLN(S);
writeln(h, 'horas',m, 'minutos e', tempo(s,m,h),'seg'); readkey; end.

6- faça uma questão que recebe a idade de uma pessoa em anos, meses e dias e retorna essa idade expressa em dias.

program ex6; uses crt; function idade(D,M,A:integer):integer; var dias:integer;
Begin
dias:= D + M*30 + A*365; idade := dias; end; Var
D,M,A:integer;
begin writeln('Entre com a quantidade de anos'); readln(A); writeln('Entre com a quantidade de meses'); readln(M); writeln('Entre com a quantidade de dias'); readln(D); writeln(' A quantidade total de dias é ', Idade(D,M,A)); readkey end.

9- Faça uma função que recebe um valor inteiro e verifica se o valor é positivo ou negativo. A função deve retornar um valor booleano.

program ex9; uses crt; function positivo(n:integer):boolean;
Begin
if n >= 0 then Positivo:= true; else Positivo:=false end; Var n:integer; Begin
Writeln('Entre com o número inteiro'); readln(n); if Positivo(n) then writeln('O número é positivo'); else writeln('O número é negativo'); readkey; end.

10 - Faça uma função que recebe um valor inteiro e verifica se o valor é par ou ímpar. A função deve retornar um valor booleano.

program ex10; uses crt; function par(N:integer):boolean;
Begin
if (N mod 2 = 0 ) then Par:= true else Par:=false; end; Var
N:integer;
Begin
Writeln('Entre com o número inteiro'); readln(N); if Par(n) then writeln('O número é par') else writeln('O número é ímpar'); readkey; end.

21- Faça uma função que recebe, por parâmetro, um