program Kvadr;

  (* Vytiskne velikost objemu a povrchu kvadru o rozmerech
     5 cm, 3 cm, 7 cm *)

const delka=5;
      sirka=3;
      vyska=7;

begin
  WriteLn('Kvadr o rozmerech');
  WriteLn('delka:',delka,' cm, sirka: ', sirka,' cm, vyska:', vyska,' cm');
  WriteLn('ma objem V=',delka*sirka*vyska,' cm krychlovych');
  WriteLn('ma povrch S=',2*(delka*sirka+sirka*vyska+delka*vyska),' cm ctverecnych');
end.