program Vypocet_vody_v_litrech;

uses crt;

var vyska, polomer, objem : real;

begin
  clrscr;
  writeln('Tento program vypocte objem vody v nadobe z vlozeneho polomeru a vysky nadoby.');
  write('Vloz polomer nadoby v centimetrech: ');
  readln(polomer);
  write('Vloz vysku nadoby v centimetrech: ');
  readln(vyska);
  objem := ((pi * vyska) * (polomer * polomer))/1000;
  writeln('Do nadoby se vejde: ',objem:8:2,' litru vody.');
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.