program Vypocet_objemu_koule;

uses crt;

var objem, povrch, polomer :real;

begin;
  clrscr;
  writeln('Tento program vypocte objem a povrch koule ze zadaneho polomeru.');
  write('Vloz polomer koule: ');
  readln(polomer);
  objem := (4/3) * pi * (polomer * polomer * polomer);
  povrch := 4 * pi * (polomer * polomer);
  writeln('Objem koule je: ',objem:8:2,'.');
  writeln('Povrch koule je: ',povrch:8:2,'.');
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.