Temat: Pascal, pomocy!

program szescian;

var a,szukana,opcja:integer;

begin

writeln('podaj bok szescianu');
readln(a);
writeln('Teraz podaj co chcesz obliczyc');
writeln('1-Pole Szescianu');
writeln('2-Objetosc szescianu');
writeln('3-Dlugosc krawedzi');
readln(opcja);

case opcja of
     1:szukana:=6*a*a;
     2:szukana:=a*a*a;
     3:szukana:=12*a;
end;

writeln('Wynik to: ',szukana);
readln();
end.

program zad1;
uses crt;
var a,b,c,d,h:integer;
    opcja:char;
    pole:real;

label x,y;

begin
clrscr;

x:

writeln('k - kwadrat');
writeln('p - prostokat');
writeln('o - kolo');
writeln('t - trojkat');
writeln('0 - wyjdz');
readln(opcja);

CASE opcja OF

'k':
    
    begin
        writeln('Podaj a:');
        readln(a);
        writeln('Pole wynosi: ',a*a,'');
    end
    else
    begin
        goto x;
    end;

    end;
'p':

    begin
        writeln('Podaj a:');
        readln(a);
        writeln('Podaj b:');
        readln(b);
        writeln('Pole wynosi: ',a*b,'');
    end
    else
    begin
        goto x;
    end;

    end;
'o':
 
    begin
        writeln('Podaj r:');
        readln(a);
        writeln('Pole wynosi: ',Pi*a*a:0:2,'');
    end
    else
    begin
        goto x;
    end;

    end;
't':
    begin
    
        writeln('Podaj a:');
        readln(a);
        writeln('Podaj h:');
        readln(h);

        pole:=a*h/2;
        writeln('Pole wynosi: ',pole:0:2,'');
    end
    else
    begin
        goto x;
    end;

    end;
'0':
	begin
		goto y;
	end;
end;

goto x;
readln;
y:
end.

program szescian;

var a,szukana,opcja:integer;

begin

writeln('podaj bok szescianu');
readln(a);
if a<=0 then writeln('nie mozna tego obliczyc') else
     begin
           writeln('Teraz podaj co chcesz obliczyc');
           writeln('1-Pole Szescianu');
           writeln('2-Objetosc szescianu');
           writeln('3-Dlugosc krawedzi');
           readln(opcja);

           case opcja of
               1:szukana:=6*a*a;
               2:szukana:=a*a*a;
               3:szukana:=12*a;
           end;

          writeln('Wynik to: ',szukana);
      end;
readln();
end.