/media/sda-magnetic/david/Extern-Magnetic-2022-06-29/Extern01/Dokumente-2020-11-16/disk10-ab-2020-01-10/02-debian-pc2-work/informatik/pascal-compiler/siac4t/test07.txt

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

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

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

print a;
print c;

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

j := b;
j := a;

if i < a then
  i := a;
  j := b
else
  i := x;
  z := y
fi

end.