Menghitung Luas Permukaan Kubus Dan Balok Di Pascal

Program menghitung_Luas_permukaan_kubus_dan_permukaan_balok;
uses crt;
var a,v,Si,Pa,Le,Ti:integer;
procedure LuasKubus(var S,LK:integer);
begin
    LK:=6*sqr(S);
    writeln('_____________________');
    writeln('Luas Permukaan Kubus: ',LK);
    readln;
end;