{ VALEC.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet objemu a povrchu valca               }
{ Vstup : polomer r, vyska vy                                       }
{ Vystup: objem a povrch valca                                      }
{                                                                   }
{ Datum:04.02.2004                             http://www.trsek.com }
 
program valec;
uses crt;
const pi=3.14;
var r:real;
    vy:real;
    V:real;
    S:real;
 
begin
     ClrScr;
     Write('Zadaj priemer valca:');
     ReadLn( r );
 
     Write('Zadaj vysku valca:');
     ReadLn( vy );
 
     V := pi*r*r*vy;
     S := 2*pi*r*(r+vy);
 
     WriteLn('Objem valca je  ', V:8:3,' jednotiek.');
     WriteLn('Povrch valca je ', S:8:3,' jednotiek.');
     Readln;
end.