Fundamentos da computação

1) Escrever um programa que lê a hora de início de um jogo e a hora do final do jogo (considerando apenas horas inteiras) e calcula a duração do jogo em horas, sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.

Program horajogo ; var a,b,c,d: integer; Begin writeln ('informe a hora de inicio do jogo em formato 24 hrs sendo que o jogo tem duração maxima de 24hrs'); read (a); writeln ('informe a hora do fim do jogo em formato 24 hrs sendo que o jogo tem duração maxima de 24hrs'); read (b); if (a>=b) then begin c:=(24-a)+b; writeln (' O jogo teve duração de ',c,' horas'); end else if (a=b) and (a>=c) and (b>=c) then begin writeln ( a ); writeln (b); writeln ( c); end else if (a>=b) and (a>=c) and (c>=b) then begin writeln ( a ); writeln (c); writeln ( b); end else if (b>=a) and (b>=c) and (a>=c) then begin writeln (b); writeln (a); writeln (c); end else if (b>=a) and (b>=c) and (c>=a) then begin writeln (b); writeln (c); writeln (a); end else if (c>=a) and (c>=b) and (a>=b) then begin writeln (c); writeln (a); writeln (b); end else if (c>=a) and (c>=b) and (b>=a) then begin writeln (c); writeln (b); writeln (a); end; end else if (i=2) then begin if