begin a := 1; b := a + 1; b := b + 1; write (a,b); read(a,b); write (a+10, b+10); end