Нарисовать часы с кукушкой

uses crt;
var a1,a2,b1,b2,h1,h2:integer;
ss:real;
 
function s(a, b, h:integer):real;
begin
  s := (a + b) * h / 2;
end;
 
begin
  clrscr;
  write('Введите основания и высоту первой трапеции -> ');
  readln(a1, b1, h1);
  write('Введите основания и высоту второй трапеции -> ');
  readln(a2, b2, h2);
  ss := s(a1, b1, h1) + s(a2, b2, h2); 
  writeln('Сумма площадей = ',ss:0:1);
  readln;
end.

uses crt;
type Arr = array[1..100]of real;
 
var a:Arr; n:integer; p:real;
 
function pp(m:Arr, n:integer):real;
var p:real; i:integer;
begin
  p := 1;
  for i:=1 to n do if m[i] <> 0 then p := p * m[i]; 
  pp := p;
end;
 
begin
  clrscr;
  write('Размерность массива -> ');
  readln(n);
  for i:=1 to n do
  begin
    write('M[',i,'] -> ');
    readln(a[i]);
  end;
  p := pp(a, n);
  writeln('Произведение ненулевых элементов = ', p:0:5);
  readln;
end.

uses crt;
var a1,a2,b1,b2,h1,h2:integer;
ss, s1, s2:real;
 
procedure s(a, b, h:integer; var result:real);
begin
  result := (a + b) * h / 2;
end;
 
begin
  clrscr;
  write('Введите основания и высоту первой трапеции -> ');
  readln(a1, b1, h1);
  write('Введите основания и высоту второй трапеции -> ');
  readln(a2, b2, h2);
  s(a1, b1, h1, s1);
  s(a2, b2, h2, s2);
  ss := s1 + s2;
  writeln('Сумма площадей = ',ss:0:1);
  readln;
end.

uses crt;
type Arr = array[1..100]of real;
 
var a:Arr; n:integer; p:real;
 
procedure pp(m:Arr, n:integer; var p:real);
var p:real; i:integer;
begin
  p := 1;
  for i:=1 to n do if m[i] <> 0 then p := p * m[i]; 
  pp := p;
end;
 
begin
  clrscr;
  write('Размерность массива -> ');
  readln(n);
  for i:=1 to n do
  begin
    write('M[',i,'] -> ');
    readln(a[i]);
  end;
  pp(a, n, p);
  writeln('Произведение ненулевых элементов = ', p:0:5);
  readln;
end.