program class2q1; uses wincrt;
var sec1, sec2, min, hr : integer;
begin
  write('Please enter the number of seconds : ');
  readln(sec1);
  hr := sec1 div 3600;
  min := (sec1 - hr * 3600) div 60;
  sec2 := sec1 - (min * 60 + hr * 3600);
  writeln(sec1,' = ',hr,' hours ',min,' minutes ',sec2,' seconds')
end.

program class2q2; uses wincrt;
var x, y, S, D, larger, smaller : integer;
begin
  write('What is the first number? ');
  readln(x);
  write('What is the second number? ');
  readln(y);
  S := x + y;
  D := abs(x - y);
  larger := (S + D) div 2;
  smaller := (S - D) div 2;
  writeln('The larger number is ',larger);
  writeln('The smaller number is ',smaller)
end.

program class2q3; uses wincrt;
var num1, num2, num3, num4, num5, num6 : integer;
begin
  randomize;
  num1 := 1 + random(47);
  num2 := 1 + random(47);
  num3 := 1 + random(47);
  num4 := 1 + random(47);
  num5 := 1 + random(47);
  num6 := 1 + random(47);
  writeln('The first drawn number is ',num1);
  writeln('The second drawn number is ',num2);
  writeln('The third drawn number is ',num3);
  writeln('The fourth drawn number is ',num4);
  writeln('The fifth drawn number is ',num5);
  writeln('The sixth drawn number is ',num6)
end.

program class2q4; uses wincrt;
var side1, side2, hypo, angle1, angle2 : real;
begin
  write('What is the first side ? ');
  readln(side1);
  write('What is the second side ? ');
  readln(side2);
  hypo := sqrt(side1 * side1 + side2 * side2);
  angle1 := arctan(side1 / side2) / 3.1416 * 180;
  angle2 := arctan(side2 / side1) / 3.1416 * 180;
  writeln('The length of the hypotenuse is ',hypo:0:2);
  writeln('The acute angle are ',round(angle1),' degrees and ',round(angle2),' degrees.')
end.