{ OPVALEC.PAS                                                       }
{ Program vypocita povrch a objem valca.                            }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program ObjemPovrchValca;
uses crt;
var
   S,V,r,vyska : real;
   menu : integer;
 
begin
 clrscr;
 writeln('1.Povrch valca');
 writeln('2.Objem valca');
 readln(menu);
 clrscr;
 
 IF menu = 1 THEN
   begin
        writeln('Zadaj polomer');
        readln(r);
        clrscr;
        writeln('Zadaj vysku');
        readln(vyska);
        clrscr;
        S := 2 * Pi * r * r + 2 * Pi * r * vyska;
        writeln('Povrch valca je ',S : 2 : 2);
        readln;
   end;
 
 IF menu = 2 THEN
   begin
        writeln('Zadaj polomer');
        readln(r);
        clrscr;
        writeln('Zadaj vysku');
        readln(vyska);
        clrscr;
        V := Pi * r * r * vyska;
        writeln('Objem valca je ',V : 2 : 2);
        readln;
       end;
end.