{ KOCKA.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita obvod, povrch, objem kocky                               }
{ Vstup : rozmer hrany kocky                                        }
{ Vystup: obvod, povrch, objem kocky                                }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program kocka;
uses crt;
var a,obvod: real;
      objem: real;
     povrch: real;
begin
 Clrscr;
 Write('Zadaj stranu kocky:');
 ReadLn(a);
 obvod :=3*4*a;
 povrch:=6*a*a;
 objem :=a*a*a;
 WriteLn('Obvod  kocky pre stranu:',a:5:2,' je ', obvod:5:2);
 WriteLn('Povrch kocky pre stranu:',a:5:2,' je ',povrch:5:2);
 WriteLn('Objem  kocky pre stranu:',a:5:2,' je ', objem:5:2);
 Readln;
end.