/* Compute foo */

program 
 a: integer;
 foo: real;
 
body
 a:=17;
 foo:=a*2+8;
 write foo;
end program


