WSKAŹNIKI DO ZMIENNYCH STATYCZNYCH
program pola;
uses crt;
type WReal=^Real;
var P,O,V:Real;
WP,WO,WV:WReal;
a,b,h:Real;
i:integer;
begin
 clrscr;
 writeln('WYBIERZ FIGURE: ');
 writeln('1 - prostopadloscian');
 writeln('2 - szescian');
 read(i);
 WP:=@P;
 WO:=@O;
 WV:=@V;
 case i of
 1:
  begin
   writeln('PROGRAM LICZACY POLE, OBWOD I DLUGOSC KRAWEDZI PROSTOPADLOSCIANU');
   writeln('Wprowadz pierwszy bok podstawy: ');
   read (a);
   writeln('Wprowadz drugi bok podstawy: ');
   read (b);
   writeln('Wprowadz wysokosc: ');
   read (h);
   WP^:=2*(a*b)+2*(a*h)+2*(b*h);
   WO^:=4*a+4*b+4*h;
   WV^:=a*b*h;
   writeln('POLE wynosi: ',WP^:2:2);
   writeln('OBJETOSC wynosi: ',WV^:2:2);
   writeln('SUMA KRAWEDZI wynosi: ',WO^:2:2);
  end;
 2:
  begin
   writeln('PROGRAM LICZACY POLE, OBWOD I DLUGOSC KRAWEDZI SZESCIANU');
   writeln('Wprowadz bok szescianu: ');
   read (a);
   WP^:=a*a*6;
   WO^:=12*a;
   WV^:=a*a*a;
   writeln('POLE wynosi: ',WP^:2:2);
   writeln('OBJETOSC wynosi: ',WV^:2:2);
   writeln('SUMA KRAWEDZI wynosi: ',WO^:2:2);
  end;
 end;
 repeat until keypressed;
end.