Kocka

program kocka;
{$APPTYPE CONSOLE}
uses SysUtils;
var o:char;s:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte stranu kocky(m): ');
  readln(s);
  writeln('1) Obvod');
  writeln('2) Objem');
  writeln('3) Plocha');
  writeln('4) Uhlopriecka kocky');
  writeln('5) Uhlopriecka steny');
  writeln('V) Vsetko');
  write('Zvolte operaciu: ');
  readln(o);
  writeln;
    case o of
      '1':begin
            writeln('Zvolili ste obvod!');
            writeln('12*',s,'=',12*s,' metrov');
          end;
      '2':begin
            writeln('Zvolili ste objem!');
            writeln(s,'*',s,'*',s,'=',s*s*s,' metrov kubickych');
          end;
      '3':begin
            writeln('Zvolili ste plochu!');
            writeln(6,'*',s,'*',s,'=',6*(s*s),' metrov stvorcovych');
          end;
      '4':begin
            writeln('Zvolili ste uhlopriecku kocky!');
            writeln(s,'*1,73=',s*1.73:1:3,' metrov');
          end;
      '5':begin
            writeln('Zvolili ste uhlopriecku steny kocky!');
            writeln(s,'*1,41=',s*1.41:1:3,' metrov');
          end;
      'v','V':begin
            writeln('Zvolili ste vsetky vypocty!');
            writeln('O=12*',s,'=',12*s,' metrov');
            writeln('V=',s,'*',s,'*',s,'=',s*s*s,' metrov kubickych');
            writeln('Q=6*',s,'*',s,'=',6*(s*s),' metrov stvorcovych');
            writeln('u3=',s,'*1,73=',s*1.73:1:3,' metrov');
            writeln('u2=',s,'*1,41=',s*1.41:1:3,' metrov');
          end;
      else writeln('NESPRAVNA KLAVESA!');
    end;
  readln
end.