valecovo

program segundos;

uses crt;

var H, M, S, n: integer;
    c: char;

procedure calcular;
begin
  H:= n div 60;
  n:= n mod 60;
  M:= n div 60;
  S:= n mod 60;
  writeln('Horas: ',H,'      Minutos: ',M,'      Segundos: ',S);
end;

begin
  repeat
  clrscr;
  writeln('Programa que calcula horas, minutos e segundos');
  write('Digite o numero de segundos: ');
  readln(n);
  calcular;
  writeln('Deseja sair ?  (s/n');
  readln(c);
  until c='s';
end.

Alguém pode me explicar como faço esse exercicios, ou tenha exemplos para me mandar?
Dado um número N, calcular seu fatorial:
N!= N x (N-1) x (N - 2) x .....1
0! = 1 (regra)
1! = 1
2! = 2 x (2 - 1) = 2 x 1 = 2
3! = 3 x (3 - 1) x (3 - 2) = 3 x 2 x 1 = 6
4! = 4 x (4 - 1) x (4 - 2) = 4 x 3 x 2 x 1 = 24

Para fazeres o Factorial de um Numero, tens de fazer uma Função que se chama a si propria.
Para te podermos ajudar melhor, posta aqui o Codigo que ja tens

program factorial;

uses crt;

var n: integer;
    c: char;

function calcularfatorial: integer;
var i: integer;
begin
  calcularfatorial:= 1;
  if n=0 then calcularfatorial:= 1
  else
  begin
    for i:=n+1 downto 2 do calcularfatorial:= calcularfatorial*(i-1);
  end;
end;


begin
  repeat
  clrscr;
  writeln('Programa para calcular factorial');
  write('Digite um numero inteiro: ');
  readln(n);
  writeln('O factorial de ', n,' e ', calcularfatorial);
  writeln('Deseja sair do programa ? (s/n)');
  readln(c);
  until c='s';
end.