Zmienne lokalne i globalne

program objetosc_walca;
uses crt;
var r, h, Obj:real;{zmienne globalne}
procedure czytaj_dane;
begin
  clrscr;
  writeln('Objetosc walca');
  writeln('podaj promien r i wysokosc wysokosc h');
  write('r = ');readln(r);
  write('h = ');readln(h);
end;
function V(rr,hh:real):real;
 var Pp:real;{zmienna lokalna}
begin
  Pp:=pi*rr*rr;
  V:=Pp*hh;
end;
procedure obliczenia;
begin
  Obj:=V(r,h);
end;
procedure pisz_wyniki;
begin
  writeln('objetosc walca V = ',Obj:5:2);
  readkey;
end;
{*** czesc operacyjna ***}
begin
  czytaj_dane;
  obliczenia;
  pisz_wyniki;
end.