function dan prosedur

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Luas, x, y: integer;

function Func_tionI(x, y: integer): integer;
begin
  result := x * y;
end;

function Func_tionII(x, y: integer): integer;
begin
  result := 2 * (x + y);
end;

procedure kotak_I;
begin
  write('Masukkan Niali x=');
  readln(x);
  write('Masukkan Niali y=');
  readln(y);
  writeln('Luas adalah=', Func_tionI(x, y));
  readln;
end;

procedure kotak_II;
begin
  write('Masukkan Niali x=');
  readln(x);
  write('Masukkan Niali y=');
  readln(y);
  writeln('Keliling adalah=', Func_tionII(x, y));
end;

begin
  kotak_I;
  kotak_II;
  readln;

end.