Umístnení souboru www.TrSek.com/zadania/kvadr.pas{ KVADR.PAS Copyright (c) Pavel Patak }
{ Po zadání tri rozmeru kvadru vypocte jeho objem }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Kvadr;
Var a, b, c, V : Real;
Begin
Write('Zadej delku strany a : ');
Readln(a);
Write('Zadej delku strany b : ');
Readln(b);
Write('Zadej delku strany c : ');
Readln(c);
Writeln; {Trocha odsazeni zvetsi prehlednost}
Writeln('V = ',a*b*c:7:2);
Readln;
End.