/media/sda-magnetic/david/Dok-15-2023-11-27/fernuni-hagen/cs-i-ii/old-cs-2-03/pascal-compiler/siac4t/test04.txt

while i < a do 
  while i < a + c do
    i := (b + d)*e+d*(f*g)
  od
od