WSKAŹNIKI DO ZMIENNYCH DYNAMICZNYCH
program pola;
uses crt;
type WReal=^Real;
var P,O,V,a,b,h:Real;
WP,WO,WV,Wa,Wb,Wh:WReal;
i:integer;

begin
 clrscr;
 writeln('WYBIERZ FIGURE: ');
 writeln('1 - prostopadloscian');
 writeln('2 - szescian');
 read(i);
 case i of
 1:
  begin
   writeln('PROGRAM LICZACY POLE, OBWOD I DLUGOSC KRAWEDZI PROSTOPADLOSCIANU');
   new(Wa);
   writeln('Wprowadz pierwszy bok podstawy: ');
   read (Wa^);
   new(Wb);
   writeln('Wprowadz drugi bok podstawy: ');
   read (Wb^);
   new(Wh);
   writeln('Wprowadz wysokosc: ');
   read (Wh^);
   new(WP);
   new(WO);
   new(WV);
   WP^:=2*(Wa^*Wb^)+2*(Wa^*Wh^)+2*(Wb^*Wh^);
   WO^:=2*Wa^+4*Wb^+4*Wh^;
   WV^:=Wa^*Wb^*Wh^;
   writeln('POLE wynosi: ',WP^:2:2);
   writeln('OBJETOSC wynosi: ',WV^:2:2);
   writeln('SUMA KRAWEDZI wynosi: ',WO^:2:2);
   dispose(Wa);
   dispose(Wb);
   dispose(Wh);
   end;
 2:
  begin
   writeln('PROGRAM LICZACY POLE, OBWOD I DLUGOSC KRAWEDZI SZESCIANU');
   new(Wa);
   new(WP);
   new(WV);
   new(WO);
   writeln('Wprowadz bok szescianu: '); 
   read (Wa^);
   WP^:=Wa^*Wa^*6;
   WO^:=12*Wa^;
   WV^:=Wa^*Wa^*Wa^;
   writeln('POLE wynosi: ',WP^:2:2);
   writeln('OBJETOSC wynosi: ',WV^:2:2);
   writeln('SUMA KRAWEDZI wynosi: ',WO^:2:2);
   dispose(WP);
   dispose(WV);
   dispose(WO);
   dispose(Wa);
  end;
 end;
 repeat until keypressed;
end.