unit skyline;

interface

function valuta(N: longint; var H: array of longint): longint;
procedure progetta(N: longint; K: longint; var H: array of longint);

implementation

(* qui vanno dichiarate eventuali variabili/costanti globali *)

function valuta(N: longint; var H: array of longint): longint;
var i: longint;  (* variabili locali *)
begin
    (* in questo modo si ritorna come risposta il numero 31 *)
    valuta := 31;
end;

procedure progetta(N: longint; K: longint; var H: array of longint);
var i: longint;  (* variabili locali *)
begin
    (* in questo modo si assegnano tutte le altezze uguali a 1 *)
    for i:=0 to N-1 do
        H[i] := 1;
end;

end.