procedure one is
  a,b,c : integer;
  procedure two is
    d,e : integer;
  begin
    e := 10;
    d := 20;
    a := e * d + 30;
  end two;
begin
  b := 1;
  c := 2;
  two;
  a := a + b * c;
end one;